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EDITOR'S INTRODUCTION 

WILLIAM B. SANDERS, Ph.D. 

How many times have you heard someone say, "but what can 
you do with your computer?" Such a question is an important 
one to consider when planning to purchase a home computer. 
For those who already own an Atari Home Computer, the ques- 
tion can be redirected to ask, "where do I begin in the long list 
of computer applications?" 

In answer to these questions, there are three ways to learn 
how to operate your computer. They are; purchasing already 
written software programs, learning how to write your own 
individual software programs and learning how to program by 
keying in already written software programs. 

This book represents the third alternative. It will help you 
learn about your computer and how to program it by copying 
programs. If you are not interested in learning how to program, 
you can simply key in the useful programs as they appear and 
save them to disk or tape. Either way, you will have several 
useful programs that you can use daily to help you with every- 
thing from simple daily chores to more complex business ap- 
plications and utilities. 

The best way to learn about your computer is to just sit down 
and become acquainted with it, and this book is designed to do 
just that! 

Since Atari makes several excellent computers, you may won- 
der whether or not these programs will work on your particular 
Atari Home Computer. All of the programs contained in this 
book were written in Atari BASIC computing language. This 
means that any of the programs contained in this book will 
run with the version of BASIC that comes with the Atari com- 
puter. So if you own an Atari 400, 600XL, 800, 800XL, 1200XL, 
1400XL, or 1450 XLD you can run any of the programs contained 



in this book. (On some of the Atari 400/800 models, BASIC is not 
included. You will need to get one to run any of these programs 
or any other BASIC program.) 

The programs are written to be saved to disk, but can also be 
saved to tape. Some programs will need some minor line changes 
in order to save the program to tape, these are included where 
they may be needed. Therefore, no matter what type of Atari 
system configuration you may have, these programs will work 
on your Atari Home Computer. 

The ATARI EXPERIENCE was designed to provide a wide range 
of applications to be of use to everyone. It is arranged into five 
distinct sections. 
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HOME 


II 


EDUCATION 


III 


ENTERTAINMENT 


IV 


BUSINESS 


V 


UTILITY PROGRAMS 



The first section is a collection of programs that have a wide 
variety of applications in the home. Keeping track of birthdays, 
anniversaries, and special occasions can be done easily with 
DATE LOG. For your physical fitness, JOG LOG will help rec- 
ord your mileage and heart rate so you can see what shape 
you're in. Other programs in this section include Checkbook 
Balancer, Address Log, and Christmas Cards. 

The Educational section contains an array of programs which 
will help develop children's skills in just about everything from 
math to capitals of each state of the union. 

The third section, Entertainment, contains a number of games, 
as well as a drawing program to help create computer designs 
and graphics. 

For the business minded person, this book contains several 



decision making and financial planning programs. With these 
programs you can do everything from calculating profit to in- 
ventory tracking. 

Finally, the last section of this book is devoted to utilities. 
"Utility" refers to a special type of program which can be used 
as an aid for another program. For example, in some operations, 
such as player/missile graphics, a special program is needed to 
transform binary numbers to decimal. In this section you will 
not only find this program, but also several other equally useful 
utilities. 

As you can see, the ATARI EXPERIENCE is a true experience 
with a wide range of computer applications. What's more, the 
programs can be modified to meet particular needs and tastes. 
All of the programs are clearly presented and explained, so if 
you want to change them, there is no mystery. 

The author of the ATARI EXPERIENCE, Adrien Lamothe, has 
experience not only on the ATARI, but on other computers as 
well. With an eye for both clarity and practicality, Adrien has 
drafted this collection of programs so they could be used and 
understood by both novice and experienced programmers. He 
is currently pursuing a degree in computer science. 



Section 1 



Programs for the Home 

• Checkbook Balancer 

• Christmas cards 

• Address Log 

• Date Log 

• Jogging Log 




PROGRAMS FOR THE HOME 

The first section of this book is devoted to programs which can 
be used inside the home. The first program is a checkbook 
balancer; this can help balance and keep records from your 
checking account. The next program, Christmas card, will help 
you create Christmas cards for the holiday season. The final 
three programs in this section are logs designed to help organ- 
ize information. The first of these is an address listing that 
allows the storage of names and addresses on disk. Next is a 
file which can be used to store important dates. The last pro- 
gram, the jogging log, can help formulate and plan a training 
regimen. 
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Checkbook Balancer 

Do you have trouble balancing your checkbook? With this pro- 
gram you can use your Atari to keep your checking account in 
order. This program will do the math and keep track of your 
current balance under the file named CHKDATA.001. The pro- 
gram also assigns a password, specified by yourself, to restrict 
access to your data. As a further precaution, you can change 
the name of the data file to confuse anyone else looking for 
your account data. 




If you plan to use the program for more than one account, 
simply rename the file reference statements for each account. 
Do this by changing the. file name in lines 350, 530, and 1030. 
To avoid the effort involved in changing these lines every time 
you want to access a different account, save different versions 
of these lines as separate programs using the LIST command 
while leaving them out of the main program. When you ENTER 
the main program (save it using the LIST command) just enter 
the version of the file reference statements you need for your 
account. 
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10 REM *** CHECKBOOK BALANCER *** 

20 REM 

30 DIM A$(3), P$(8), R$t8) 

40 C = 

50 PRINT CHRSH25) 

60 PRINT : PRINT "INSERT FILE DISK INTO DISK 

DRIVE." 

70 PRINT "PRESS RETURN KEY WHEN READY." 

BO INPUT A$ 

90 REM 

100 REM ** Determine if old account. ** 

110 REM 

120 PRINT CHRSH 25) 

130 PRINT : PRINT "Is this a new or old account?" 

140 PRINT "[answer NEW or OLD]"; 

150 INPUT A$ 

160 IF AS = "OLD" THEN 530 

170 IF AS <> "NEW" THEN 130 

200 REM *************** 

210 REM NEW ACCOUNT 

220 REM *************** 

230 PRINT CHRSC1 25) 

240 PRINT 

250 PRINT "Choose a password for your account" 

260 PRINT "Cuse up to 8 letters or numbers)" 

270 INPUT PS 

280 PRINT CHRSd 25) 

290 PRINT : PRINT "What is your initial balance" 

300 PRINT "(leave out the dollar sign)"; 

310 TRAP 290 

320 INPUT B 

330 B = INTCB* 100) / 100 

340 REM Create datafile. 

350 OPEN #1, 8, 0, "D:CHKDATA.0O1" 

360 PRINT #1; B 

370 PRINT #1; PS 

380 CLOSE #1 

390 PRINT CHR$(125) 
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400 PRINT : PRINT "Would you like to make a 

transaction?" 

410 PRINT "Answer Y or N"; 

420 INPUT A$ 

430 IF A$ = "Y" THEN 530 

440 IF A$ <> "N" THEN 400 

450 END 

500 REM ************************ 

510 REM TRANSACTION ROUTINE 

520 REM ************************ 

530 TRAP 50 

540 OPEN #1, 4, 0, "D:CHKDATA.001" 

550 INPUT #1; B 

560 INPUT #1; P$ 

570 CLOSE #1 

580 PRINT CHR$(1 25) 

590 PRINT : PRINT "What is your password"; 

600 INPUT R$ 

610 C = C + 1 

620 IF R$ = P$ THEN 660 

630 IF C = 3 THEN END 

640 PRINT : PRINT "That is not the password, try 

again." 

650 GOTO 590 

660 PRINT CHRSd 25) 

670 PRINT : PRINT "SELECT TRANSACTION" 

680 PRINT 

690 PRINT "1) DEPOSIT" 

700 PRINT "2) WITHDRAWAL" 

710 PRINT "3) BALANCE INQUIRY" 

720 TRAP 680 

730 INPUTS 

740 IF S < 1 OR S > 3 THEN 660 

800 REM ******************** 

810 REM ADJUST BALANCE 

820 REM ******************** 

830 ON S GOTO 840, 890, 930 
840 PRINT CHRSC125) 
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850 PRINT : PRINT "Amount deposited [omit $)"; 

860 INPUT D 

870 B = B + INTID * 100] / 100 

880 GOTO 950 

890 PRINT CHRSH 25] 

900 PRINT : PRINT "Amount withdrawn (omit $]"; 

910 INPUT W 

920 B = B - IISITCW * 100] / 100 

930 PRINT CHRSC1 25] 

940 IF B < THEN PRINT : PRINT "ACCOUNT 

OVERDRAWN!" 

950 PRINT : PRINT "Your balance is $";B 

960 PRINT : PRINT "Another transaction [answer Y 

or N)"; 

970 INPUT AS 

980 IF A$ = "Y" THEN 660 

990 IF A$ <> "N" THEN 960 

1000 REM ************* 

1010 REM UPDATE FILE 

1020 REM ************* 

1030 OPEN #1, 12, 0, "D: CHKDATA.O01" 

1040 PRINT #1; B 

1050 CLOSE #1 

1060 PRINT CHR$t1 25] 

1070 PRINT : PRINT "Balance has been updated." 

1080 PRINT "Program ended." 

1090 END 
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Christmas Cards 

Are you tired of shopping for Christmas cards every year? Why 
not let a printer, with some help from a computer, make cards 
for you? This program will print out personalized cards. You 
can print as many cards as you need. To print the cards you 
have to answer three questions: 1) the sender's name, 2) the 
current year, and 3) the quantity to be printed. When answer- 
ing question 1, you can list more than one name. For example, 
you could answer "Jane and John Doe" or "The Does. " Also, 
when you are finished printing you will have to fold each card. 



TffflWrTTin)))))) 




Lines 710, 1030 and 1130 control the formatting. If you expe- 
rience problems with the cards' format, you can adjust these 
lines. 
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10 REM *** CHRISTMAS CARD *** 

20 REM 

30 DIM A$(1), NAME$(32) 

100 REM ************ 

110 REM USER DATA 
1 20 REM ************ 

130 PRINT CHRSC1 25) 

140 PRINT : PRINT "What is the namets) of the 

sender" 

150 PRINT "Cyou may use up to 32 characters)" 

160 INPUT NAMES 

170 PRINT: PRINT "What is the current year"; 

180 TRAP 170 

190 INPUT Y 

200 IF Y < 1983 THEN 170 

210 PRINT : PRINT "HOW MANY CARDS DO YOU 

WISH TO PRINT"; 

220 TRAP 210 

230 INPUT N 

240 IF N <= 0THEN 210 

300 REM *************** 

310 REM INSTRUCTIONS 

320 REM *************** 

330 FOR X = 1 TO N 

340 PRINT CHR$ (125) 

350 IF FLAG = 1 THEN GOTO 530 

360 PRINT : PRINT "TURN ON THE PRINTER." 

370 PRINT : PRINT "POSITION THE PRINT HEAD 

AT THE TOP" 

380 PRINT "EDGE OF THE PAPER." 

390 PRINT : PRINT "WHEN YOU ARE READY TO 

PRINT PRESS THE" 

400 PRINT "RETURN KEY." 

410 INPUT A$ 

420 IF N > 1 THEN FLAG = 1 

500 REM ************ 

510 REM PRINT CARD 
520 REM ************ 
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LPRINT 

AND A HAPPY NEW 



530 LPRINT : LPRINT : LPRINT : LPRINT 

540 LPRINT " MERRY CHRISTMAS!" 

550 LPRINT : LPRINT : LPRINT 

560 LPRINT,, 

570 LPRINT,, 

580 LPRINT,, 

590 LPRINT,, 

600 LPRINT,, 

610 LPRINT,, 

620 LPRINT,, 

630 LPRINT,, 

640 LPRINT,, 

650 LPRINT,, 

660 LPRINT,, 

670 LPRINT,, 

680 LPRINT,, 

690 LPRINT : LPRINT 

700 LPRINT " 

YEAR!" 

710 FOR J = 1 TO 41 

720 LPRINT 

730 NEXT J 

740 NEXT X 

800 REM **************** 

810 REM INSTRUCTIONS 

820 REM **************** 

830 FOR X = 1 TO N 

840 PRINT CHR$ [125] 

850 IF FLAG2 = 1 THEN 1030 

860 PRINT : PRINT "WAIT UNTIL THE PRINTER 

HAS STOPPED." 

870 PRINT : PRINT "REMOVE THE PAPER FROM 

THE PRINTER." 

880 PRINT : PRINT "REINSERT THE PAPER, ONLY 

FEED THE" 

890 PRINT "BOTTOM EDGE IN FIRST." 

900 PRINT "POSITION THE PRINT HEAD AT THE 

TOP OF" 
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910 PRINT "THE PAPER." 

920 PRINT : PRINT "WHEN YOU ARE READY TO 

PRINT PRESS THE" 

930 PRINT "RETURN KEY." 

940 INPUT A$ 

950 IF N > 1 THEN FLAG 2 = 1 

1000 REM ***************** 

1010 REM PRINT MESSAGE 
1 020 REM ***************** 

1030 FOR J = 1 TO 10 

1040 LPRINT 

1050 NEXT J 

1060 LPRINT ,,,," A very Merry 

Christmas to you and" 

1070 LPRINT ,,,," yours." 

1080 LPRINT ,,,," May you enjoy the best of 

health" 

1090 LPRINT ,,,," and may ";Y + 1;" be your 

best year" 

1100 LPRINT ,,,," yet." 

1110 LPRINT 

1120 LPRINT ,,,," Yours truly," 

1130 LPRINT 

1140,,,," ";NAME$ 

1150 FOR J = 1 TO 47 

1160 LPRINT 

1170 NEXT J 

1180 NEXTX 

1200 REM ************ 

1210 REM RUN AGAIN? 

1220 REM ************ 

1230 PRINT : PRINT "DO YOU WISH TO RUN THE 

PROGRAM AGAIN?" 

1240 PRINT "ANSWER Y OR N"; 

1250 INPUT A$ 

1260 IF AS = "Y" THEN 130 

1270 IF A$ <> "N" THEN 1240 

1280 PRINT : PRINT "PROGRAM ENDED." 

1290 END 
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Address Log 

This program is a computerized address book. The program 
stores addresses in a file named ADDRESS.DAT. Using the 
program you can add, delete, or update the information in the 
log. Each record has six fields: 1) name, 2) address, 3) city, 4) 
state, 5) zip code, and 6) telephone number. There are limits 
on the number of characters you can use for each field. The 
name field cannot exceed 24 characters. The address and city 
fields cannot exceed 38 and 16 characters, respectively. When 
entering the state, use the two letter code. The telephone num- 
ber field cannot exceed 14 characters. The reason for these 
limits is because a string greater than 99 characters in length 
cannot be sorted, 
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When you access the file you have two options: 1) display the 
entire file, or 2) display a particular record. When you want to 
display one record you must enter the person's name exactly 
the way it is stored in the file. Otherwise, the program will not 
recognize the record you want and it won't be displayed. Also, 
if you want your file to be sorted by last names, you will have 
to enter them last name first. 

10 REM *** ADDRESS LISTING *** 

20 REM 

30 DIM ASC24), BSC1), NAMESC24), ADDRSC38), 

CITYSC1B), STATE$(2) 

40 DIM ZIPSC5J, TELSC14J, ELEM$(99), 

FILE$(10000), RECSC38) 

50 DIM ADDLENC1000], CITLENC1000) 

100 REM ************ 

110 REM USER INPUT 

1 20 REM ************ 

130 PRINT CHR$(1 251 

140 PRINT ."ADDRESS LISTING" 

150 PRINT : PRINT "INSERT DATA DISK." 

160 PRINT : PRINT "PRESS RETURN WHEN 

READY"; 

170 INPUT A$ 

180 CLOSE #1 

190 CLOSE #2 

200 TRAP 400 

210 OPEN #1, 4, 0, "D:ADDRESS.DAT" 

220 OPEN #2, 8, 0, "D: ADDRESS TEM" 

230 PRINT CHRSC1 25) 

240 PRINT : PRINT " 1) ADD ADDRESS" 

250 PRINT : PRINT " 2) UPDATE ADDRESS" 

260 PRINT : PRINT " 3) REVIEW LIST" 

270 PRINT : PRINT " 4] SORT LIST" 

280 PRINT : PRINT " 5) LEAVE PROGRAM" 

290 PRINT : PRINT "SELECT OPTION"; 

300 TRAP 290 

310 INPUT OPTION 
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320 IF OPTION < 1 OR OPTION > 5 THEN 290 

330 ON OPTION GOTO 700, 1300, 1600,2010,340 

340 CLOSE #1 

350 CLOSE #2 

360 PRINT : PRINT "FILES CLOSED, PROGRAM 

ENDED." 

370 END 

400 REM ***************** 

410 REM FILE NOT FOUND 

420 REM ***************** 

430 PRINT CHRSC253); 

440 PRINT : PRINT "FILE NOT FOUND ON THIS 

DISK." 

450 PRINT : PRINT "Either insert proper disk and 

enter" 

460 PRINT '"NEW or enter CREATE' to create a" 

470 PRINT "new file on this disk"; 

480 INPUT A$ 

490 IF AS = "NEW" THEN '190 

500 IF AS <> "CREATE" THEN 450 

600 REM ****************** 

610 REM CREATE NEW FILE 
620 REM ****************** 

630 CLOSE #1 

640 OPEN #1, 8, 0, "D:ADDRESS.DAT" 

650 PRINT #1; "END" 

660 CLOSE #1 

670 GOTO 180 

700 REM ********************** 

710 REM TRANSFER RECORDS 

720 REM ********************** 

730 COUNT = 

740 INPUT #1; NAMES 

750 IF NAMES = "END" THEN 900 

760 PRINT #2; NAMES 

770 INPUT #1; ADDRS 

780 PRINT #2; ADDRS 

790 INPUT #1; CITYS 
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800 PRINT #2; CITYS 

810 INPUT #1; STATES 

820 PRINT #2; STATES 

830 INPUT #1; ZIPS 

840 PRINT #2; ZIPS 

850 INPUT #1;TELS 

860 PRINT #2; TELS 

870 COUNT = COUNT + 1 

880 GOTO 740 

900 REM ******************** 

910 REM ADD APPOINTMENT 
920 REM ***' ft ***' ii '**' tt **'*" it ' a '*'** # 

930 PRINT CHRSC1 25) 

940 IF OPTION = 1 THEN PRINT "ADD ADDRESS" 

950 IF OPTION = 2 THEN PRINT "CHANGE 

ADDRESS" : GOTO 970 

960 PRINT : PRINT "ENTER 'END' WHEN DONE." 

970 PRINT : PRINT "NAME...."; 

980 INPUT NAMES 

990 IF NAMES = "END" THEN 2700 

1000 IF LENCNAMES) < 1 THEN 970 

1010 PRINT : PRINT "ADDRESS...."; 

1020 INPUT ADDRS 

1030 IF LENtADDRS) < 1 THEN 1010 

1040 PRINT : PRINT "CITY "; 

1050 INPUT CITYS 

1060 IF LEN(CITYS) < 1 THEN 1040 

1070 PRINT : PRINT "STATE "; 

1080 INPUT STATES 

1090 IF LENCSTATESD < 1 THEN 1110 

1100 PRINT: PRINT "ZIP "; 

1110 INPUT ZIPS 

1120 IF LEN(ZIPS) < 1 THEN 1100 

1130 PRINT : PRINT "PHONE "; 

1140 INPUT TELS 

1150 IF LENCTELS] < 1 THEN 1130 

1160 PRINT: PRINT" 1] ADD" 

1 170 PRINT : PRINT " 2] CHANGE" 
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1180 
1190 
1200 
1210 
1220 
1230 
1240 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1330 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1600 
1610 
1620 



PRINT : PRINT "SELECT OPTION"; 

TRAP 1180 

INPUT OPT2 

IF OPT2 < 1 OR 0PT2 > 2 THEN 1180 

IF OPT2 = 2 THEN 900 

IF OPTION = 1 THEN COUNT = COUNT + 1 

GOTO 2600 

REM **************** 

REM READ RECORDS 
REM **************** 

COUNT = 

INPUT #1; NAMES 

IF NAMES = "END" THEN 2700 

INPUT #1; ADDRS 

INPUT #1; CITYS 

INPUT #1; STATES 

INPUT #1; ZIPS 

INPUT #1; TELS 

COUNT = COUNT + 1 

PRINT CHRSd 25) 

PRINT : PRINT "NAME "; NAMES 

PRINT "ADDRESS...."; ADDRS 



PRINT 

PRINT: PRINT 

PRINT: PRINT 

PRINT : PRINT 

PRINT : PRINT 

PRINT : PRINT 

PRINT: PRINT 

PRINT: PRINT 

PRINT : PRINT 

TRAP 1520 

INPUT OPT2 

IF OPT2 < 1 OR 0PT2 > 3 THEN 1520 

IF OPT 2 = 3 THEN COUNT = COUNT 

ON OPT2 GOTO 2600, 900, 1340 

REM ************* 

REM REVIEW LOG 

REM ************* 



CITY "; CITYS 

'STATE "; STATES 

'ZIP "; ZIPS 

PHONE "; TELS 

' 1) KEEP" 
1 2) CHANGE" 
3) DELETE" 
SELECT OPTION"; 
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1630 PRINT CHRSM25) 

1 640 PRINT "Enter the name you want to review" 

1650 PRINT "or enter 'ALL' to review the entire" 

1660 PRINT "listing"; 

1670 INPUT AS 

1680 NUM = 

1690 PRINT CHR$(125] 

1700 IF AS = "ALL" THEN 1710 

1710 INPUT #1; NAMES 

1720 IF NAMES = "END" THEN 1890 



1730 INPUT #1 
1740 INPUT #1 
1750 INPUT #1 
1760 INPUT #1 
1770 INPUT #1 



ADDRS 

CITYS 

STATES 

ZIPS 

TELS 

1780 IF A$ = "ALL" THEN 1800 
1790 IF AS <> NAMES THEN 1710 
1800 PRINT NAMES 
1810 PRINT ADDRS 
1820 PRINT CITYS; ", "; STATES; " ";ZIP 
1830 PRINT "TEL.: "; TELS 
1840 PRINT 
1850 NUM = NUM + 1 
1860 IF NUM = 3 THEN PRINT : PRINT 
"PRESS RETURN TO CONTINUE"; : INPUT B$ 
1870 IF NUM = 3 THEN NUM = : PRINT 
CHRSC125) 
1880 GOTO 1710 

1890 PRINT : PRINT "PRESS RETURN WHEN 
FINISHED"; 
1900 INPUT AS 
1910 GOTO 2760 
2000 REM *********** 
2010 REM SORT LOG 
2020 REM *********** 
2030 INPUT #1; RECS 
2040 IF RECS = "END" THEN 2060 
2050 GOTO 2030 
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2060 INPUT #1; COUNT 

2070 CLOSE #1 

2080 IF COUNT < 2 THEN PRINT : PRINT "SORT 

NOT REQUIRED." : GOTO 180 

2090 PRINT : PRINT "STANDBY WHILE FILE IS 

SORTED." 

2100 FOR J = 1 TO COUNT * 99 : FILESCJ, J] = ' 

" : NEXT J 

2110 I = 1 

2120 COUNT = 1 

2130 OPEN #1, 4, 0, "D:ADDRESS.DAT" 

2140 INPUT #1; NAMES 

2150 IF NAMES = "END" THEN 2320 

2160 FILES (I, I + 23) = NAMES 

2170 INPUT #1; ADDRS 

2180 ADDLENCCOUNT) = LEN[ADDR$] 

2190 FILESCI + 24, I + 61) = ADDRS 

2200 INPUT #1; CITYS 

2210 FILESCI + 62, I + 77) = CITYS 

2220 CITLENCCOUNT) = LEN(CITYS) 

2230 INPUT #1; STATES 

2240 FILESCI + 78, I + 79) = STATES 

2250 INPUT #1; ZIPS 

2260 FILESCI + 80, I + 84) = ZIPS 

2270 INPUT #1; TELS 

2280 FILE SCI + 85, I + 98) = TELS 

2290 I = I + 99 

2300 COUNT = COUNT + 1 

2310 GOTO 2140 

2320 STRING = [COUNT - 2) * 99 

2330 FOR N = 1 TO COUNT - 1 

2340 FOR P = 1 TO STRING - 98 STEP 99 

2350 PL = P + 98 

2360 PLEN = P + 99 

237(3 PLEN1 = P + 197 

2380 IF FILESCR PL) <= FILESCPLEN, PLEN1) 

THEN 2420 

2390 ELEMS = FILESCR PL) 
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2400 FILESCP, PU = FILESCPLEN, PLEN1) 

2410 FILESCPLEN, PLEN1] = ELEMS 

2420 NEXT P 

2430 NEXT N 

2440 I = 1 

2450 X = 1 

2460 IF X > COUNT - 1 THEN 2700 

2470 NAMES = FILESCI, I + 23) 

2480ADDRS = FILESCI + 24, I + 61) 

2490 ADDRS = ADDRSC1, ADDLENCX)) 

2500 CITYS = FILESCI + 62, I + 77) 

2510 STAT = FILESCI + 78, I + 79) 

2520 ZIPS = FILESCI + 80, I + 84) 

2530 CITYS = CITYSC1, CITLENCX)) 

2540 TELS = FILESCI + 85, I + 98) 

2550 I = I + 99 

2560 X = X + 1 

2600 REM ********************* 

2610 REM WRITE TO NEW FILE 
2620 REM ********************* 

2630 PRINT #2; NAMES 
2640 PRINT #2; ADDRS 
2650 PRINT #2; CITYS 
2660 PRINT #2; STATES 
2670 PRINT #2; ZIPS 
2680 PRINT #2; TELS 

2690ONOPTIONGOTO930, 1340, 1600,2460,340 
2700 REM ****************** 

2710 REM CLOSE FILES 
2720 REM ****************** 

2730 PRINT : PRINT "STANDBY WHILE FILES ARE 

CLOSED." 

2740 PRINT #2; "END" 

2750 PRINT #2; COUNT 

2760 CLOSE #1 

2770 CLOSE #2 

2780 IF OPTION = 3 THEN 2810 

2790 XIO 33, #1, 0, 0, "D:ADDRESS.DAT" 
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2800 XIO 32, #1, 
ADDRESS.DAT" 
2810 GOTO 210 



0, 0, "D:ADDRESS.TEM, 
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Date Log 




Have you ever forgotten a wedding anniversary or birthday? 
With this program you can establish a log of all the important 
dates you want to remember. The program stores the infor- 
mation on a disk file named DATE. DAT. This program allows 
several options. You can add, change, and delete items in the 
log. Items can be sorted so they will appear in chronological 
order. Each record in the file consists of two fields: a date field 
and an occasion field. When entering a date, use the format 
MMDD where MM is the month (01 to 12) and DD is the day 
(01 to 31). It's important to enter the date in this format so 
records will sort properly. The occasion field cannot exceed 34 
characters, this allows for clear viewing on a 40 column screen. 
If you have an 80 column card you can expand the occasion 
field by making the following line changes: 




33 



30 DIM A$(6), DATESC4], 0CCSC74] 

40 DIM RECSC74), FILE$(10000),ELEM$(78] 

1060 IF LEN CDCC$] > 74 THEN 810 

1800 FOR J = 1 TO COUNT * 78 

1890 FILESCI + 4, I + 77] = OCCS 

1900 I = I + 78 

1920 STRING = [COUNT - 1] * 78 

1940 FOR P = 1 TO STRING - 77 STEP 78 

1950 PL = P + 77 

1960 PLEN = P + 78 

1970 PLEN1 = P + 155 

2080 OCCS = FILE CI + 4, I + 77] 

2090 I = I + 78 

10 REM *** DATE LOG *** 

20 REM 

30 DIM ASCB), BSCU DATESC4], OCCSC65) 

40 DIM RECSC65], FILE$[10000), ELEMSC69] 

100 REM ************ 

110 REM USER INPUT 

1 20 REM ************ 

130 PRINT CHR$(1 25] 

140 PRINT ."IMPORTANT DATES" 

150 PRINT : PRINT "INSERT FILE DISK." 

160 PRINT : PRINT "PRESS RETURN WHEN 

READY"; 

170 INPUT A$ 

180 CLOSE #1 

190 CLOSE #2 

200 TRAP 400 

210 OPEN #1, 4, 0, "D:DATE.DAT" 

220 OPEN #2, 8, 0, "D:DATE.TEM" 

230 PRINT CHRSC1 25] 

240 PRINT : PRINT " 1] ADD ITEM" 

250 PRINT : PRINT " 2] CHANGE OR DELETE 

ITEM" 

260 PRINT : PRINT " 3] REVIEW ITEMCS)" 

270 PRINT : PRINT " 4) SORT LOG" 
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280 PRINT : PRINT " 5) LEAVE PROGRAM" 

290 PRINT : PRINT "SELECT OPTION"; 

300 TRAP 290 

310 INPUT OPTION 

320 IF OPTION < 1 OR OPTION > 5 THEN 290 

330 ON OPTION GOTO 700, 1 200, 1 400, 1 700, 340 

340 CLOSE #1 

350 CLOSE #2 

360 PRINT : PRINT "FILES CLOSED, PROGRAM 

ENDED." 

370 END 

400 REM ***************** 

410 REM FILE NOT FOUND 

420 REM ***************** 

430 PRINT CHR$(253); 

440 PRINT : PRINT "FILE NOT FOUND ON THIS 

DISK." 

450 PRINT : PRINT "Either insert proper disk and 

enter" 

460 PRINT "'NEW or enter 'CREATE' to create a" 

470 PRINT "new file on this disk"; 

480 INPUT AS 

490 IF A$ = "NEW" THEN 180 

500 IF AS <> "CREATE" THEN 450 

600 REM ****************** 

610 REM CREATE NEW FILE 

620 REM ****************** 

630 CLOSE #1 

640 OPEN #1, 8, 0, "D:DATE.DAT" 

650 PRINT #1; "END" 

660 CLOSE #1 

670 POKE 195, 

680 GOTO 180 

700 REM ********************** 

710 REM TRANSFER RECORDS 
720 REM ********************** 

730 COUNT = 
740 INPUT #1; DATES 
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750 IF DATES = "END" THEN 900 

760 PRINT #2; DATES 

770 INPUT #1; OCCS 

780 PRINT #2; OCCS 

790 COUNT = COUNT + 1 

800 GOTO 740 

900 REM ********** 

910 REM ADD ITEM 

920 REM ********** 

930 PRINT CHR$(125] 

940 IF OPTION = 1 THEN PRINT "ADD ITEM" 

950 IF OPTION = 2 THEN PRINT "CHANGE ITEM" 

: GOTO 970 

960 PRINT : PRINT "ENTER 'END' WHEN DONE." 

970 PRINT : PRINT "DATE "; 

980 INPUT DATES 
990 IF OPTION = 2 THEN 1010 
1000 IF DATES = "END" THEN 2300 
1010 IF LEN(DATES) <> 4 THEN 970 
1020 IF VALIDATES] < 101 THEN 970 
1030 IF VALIDATES] > 1231 THEN 970 

1040 PRINT: PRINT "OCCASION "; 

1050 INPUT OCCS 

1060 IF LEN(OCC$] > 65 THEN 1040 

1070 PRINT: PRINT" 1] ADD" 

1080 PRINT : PRINT " 2) CHANGE" 

1090 PRINT : PRINT "SELECT OPTION"; 

1100 TRAP 1090 

1110 INPUT OPT2 

1 1 20 IF OPT2 < 1 OR OPT2 > 2 THEN 1 1 00 

1130 IF OPT2 = 2 THEN 900 

1140 IF OPTION = 1 THEN COUNT = COUNT + 1 

1150 GOTO 2200 

1200 REM **************** 

1210 REM READ RECORDS 
1220 REM **************** 

1230 COUNT = 
1240 INPUT #1; DATES 
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1250 IF DATES = "END" THEN 23(30 
12B0 INPUT #1; OCCS 
1270 COUNT = COUNT + 1 
1280 PRINT CHR$(125) 



PRINT "ITEM #. . . . "; DATES 

PRINT "ITEM "; OCCS 

PRINT" 1) KEEP" 
PRINT " 2] CHANGE" 
PRINT " 3] DELETE" 
PRINT "SELECT OPTION"; 



1290 PRINT 

1300 PRINT 

1310 PRINT 

1320 PRINT 

1330 PRINT 

1340 PRINT 

1350 TRAP 1340 

1360 INPUT OPT2 

1370 IF OPT 2 < 1 OR OPT2 > 3 THEN 1340 

1380 IF OPT2 = 3 THEN COUNT = COUNT - 1 

1390 ON OPT2 GOTO 2200, 900, 1240 

1400 REM *************** 

1430 REM REVIEW ITEMS 
1440 REM *************** 

1430 PRINT CHRSC125) 

1440 PRINT : PRINT "Enter the date you want to 

review" 

1450 PRINT "or enter ALL to review the entire log" 

1460 TRAP 1440 

1470 INPUT AS 

1480 IF AS = "ALL" THEN 1520 

1490 IF LEN(AS) <> 4 THEN 1440 

1500 IF VAL(AS) < 101 THEN 1440 

1510 IF VAL(A$] > 1231 THEN 1440 

1520 PRINT CHR$(125) 

1530 INPUT #1; DATES 

1540 IF DATES = "END" THEN 1650 

1550 INPUT #1; OCCS 

1560 IF AS = "ALL" THEN 1580 

1570 IF AS <> DATES THEN 1530 

1580 PRINT "DATE "; DATES 

1590 PRINT "OCCASION "; OCCS 

1600 PRINT 

1610 ITEM = ITEM + 1 
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1B20 IF ITEM = 4 THEN PRINT : 

PRINT "PRESS RETURN TO 

CONTINUE"; : INPUT B$ 

1630 IF ITEM = 4 THEN ITEM = : 

GOTO 1520 

1640 GOTO 1530 

1650 PRINT : PRINT "PRESS 

RETURN WHEN FINISHED"; : INPUT 

A$ 

1660 GOTO 2330 

1700 REM *********** 

1710 REM SORT LIST 
1720 REM *********** 

1730 INPUT #1; RECS 

1740 IF REC$ = "END" THEN 1760 

1750 GOTO 1730 

1760 INPUT #1; COUNT 

1770 CLOSE #1 

1780 IF COUNT < 2 THEN PRINT : PRINT "SORT 

NOT REQUIRED." : GOTO 180 

1790 PRINT : PRINT "STANDBY WHILE FILE IS 

SORTED." 

1800 FOR J = 1 TO COUNT * 69 

1810 FILESCJ, J) = " " 

1820 NEXT J 

1830 I = 1 

1840 OPEN #1, 4, 0, "D:DATE.DAT" 

1850 INPUT #1; DATES 

1860 IF DATES = "END" THEN 1920 

1870 FILESCI, I + 3] = DATES 

1880 INPUT #1; OCCS 

1890 FILESCI + 4, I + 68) = OCCS 

1900 I = I + 69 

1910 GOTO 1850 

1920 STRING = [COUNT - 1) * 69 

1930 FOR N = 1 TO COUNT - 1 

1940 FOR P = 1 TO STRING - 68 STEP 69 

1950 PL = P + 68 
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1960 PLEN = P + 69 

1970 PLEN1 = P + 137 

1980 IF FILESCP, PL) <= FILESCPLEN, PLEN1) 

THEN 2020 

1990 ELEMS = FILESCP, PL) 

2000 FILESCP PL) = FILESCPLEN, PLEN1) 

2010 FILESCPLEN, PLEN1) = ELEMS 

2020 NEXT P 

2030 NEXT N 

2040 I = 1 

2050 X = 1 

2060 IF X > COUNT THEN 2300 

2070 DATES = FILESCI, I + 3) 

2080 OCCS = FILESCI + 4, I + 68) 

2090 I = I + 69 

2100 X = X + 1 

2200 REM ********************* 

2210 REM WRITE TO NEW FILE 
2220 REM ********************* 

2230 PRINT #2; DATES 

2240 PRINT #2; OCCS 

2250 ON OPTION GOTO 930, 1 240, 1 80, 2060, 340 

2300 REM ************* 

2310 REM CLOSE FILES 
2320 REM ************* 

2330 PRINT : PRINT "STANDBY WHILE FILES ARE 

CLOSED." 

2340 PRINT #2; "END" 

2350 PRINT #2; COUNT 

2360 CLOSE #1 

2370 CLOSE #2 

2380 IF OPTION = 3 THEN 180 

2390 XIO 33, #1, 0, 0, "D:DATE.DAT" 

2400 XIO 32, #1, 0, 0, "D:DATE.TEM, DATE. DAT" 

2410 GOTO 180 
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Jogging Log 




This program can keep track of all the miles you run, it also 
records your resting pulse rate and weight. This is useful in- 
formation because you can chart how running is affecting your 
health. 




Each entry made in the log represents one week of activity. 
The log divides a calendar year into 52 weeks or 52 entries. To 
figure out what the current week is, take the Julian date (1 - 
365) and divide by 7. Use the Julian date program in the 
Utility Section of this book to find the current Julian date. 

This program also has an option which allows you to display 
the log using a line graph. The top line represents your mileage. 
The center line shows your pulse rate and the bottom line your 
weight. With the graph you can visualize the weekly fluctua- 
tions in your mileage, pulse, and weight. The information in 
the log is helpful in avoiding overtraining. If you are increasing 
your mileage sharply and your weight is decreasing sharply 
and your resting pulse rate is increasing you are over training. 
If you back off on the mileage your pulse should drop and weight 
increase. 
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Keeping a log also helps optimize your training. Many people 
feel they have to constantly increase their mileage. If you keep 
your mileage constant from week to week your pulse and weight 
will usually continue to gradually decrease. When your pulse 
and weight remain constant, then it is time to increase mileage. 
At that point, your body will be in good enough condition to 
handle the extra miles with a decreased chance of injury. 

10 REM *** JOGGING LOG *** 

20 REM 

30 GRAPHICS 

40 DIM MILESC52], PULSEC52), WEIGHTC52), 

S(52), CC52), FLAG(52) 

50 DIM MPLOTC52). PPLOTC52), WPLOTC523 

60 DIM ASI51, YEARSC4], EXTSC33. FILE1SC13), 

FILE2SC12) 

70 REM 

80 REM *"- SET FLAG(N) TO ** 

90 REM 

100 FOR N = 2 TO 52 

110 FLAG[I\I] = 

120 NEXTN 

200 REM ************* 

210 REM USER INPUT 
220 REM ************* 

230 PRINT CHR$(125) 

240 PRINT ."JOGGING LOG" 

250 PRINT : PRINT "Start a new file CYor ND"; 

260 INPUT A$ 

270 IF AS = "N" THEN 340 

280 IF AS <> "Y" THEN 250 

290 PRINT : PRINT "What year will the file cover"; 

300 TRAP 290 

310 INPUT YEAR 

320 X = 1 

330 GOTO 380 

340 PRINT : PRINT "What year do you want to 

access"; 
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350 TRAP 340 

360 INPUT YEAR 

370 X = 2 

380 YEARS = STRSCYEAR) 

390 IF LENCYEARS) <> 4 THEN ON X GOTO 290, 340 

400 EXTS = YEARSC2, 4] 

410FILE1SC1, 10) = "D:JOGDATA." 

420 FILE2SC1, 9) = "D:JOGKEY." 

430 FILE1SC11, 13) = EXTS 

440 FILE2SC10, 12) = EXT$ 

450 ON X GOTO 530, 800 

500 REM ****************** 

510 REM CREATE DATAFILE 

520 REM ****************** 

530 OPEN #1, 8, 0, FILE1S 

540 PRINT #1; YEAR 

550 FOR WEEK = 1 TO 52 

560 NOTE #1, S, C 

570 SCWEEK) = S 

580 CCWEEK) = C 

590 MILES(WEEK) = 999 

600 PRINT #1; MILESCWEEK) 

610 PULSECWEEK) = 999 

620 PRINT #1; PULSECWEEK) 

630 WEIGHTCWEEK) = 999 

640 PRINT #1; WEIGHTtWEEK) 

650 NEXT WEEK 

660 CLOSE #1 

700 REM ****************** 

710 REM CREATE KEY FILE 
720 REM ****************** 

730 OPEN #1, 8, 0, FILE2S 
740 FOR WEEK = 1 TO 52 
750 PRINT #1; SCWEEK) 
760 PRINT #1; CCWEEK) 
770 NEXT WEEK 
780 CLOSE #1 
790 GOTO 900 
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800 PRINT CHRSC125) 

810 PRINT : PRINT "Do you want to make an entry 

or just" 

820 PRINT "review the current data (answer ENT" 

830 PRINT "or REV]"; 

840 INPUT AS 

850 IF AS = "REV" THEN 1760 

8B0 IF A$ <> "ENT" THEN 800 

900 REM ***************** 

910 REM ENTRY ROUTINE 
920 REM ***************** 

930 FLAG = 2 

940 PRINT CHRSC1 25) 

950 PRINT : PRINT "What week is it"; 

960 TRAP 950 

970 INPUT WEEK 

980 IF WEEK < 1 OR WEEK > 52 THEN 950 

990 PRINT ; PRINT "How many miles did you run 

this" 

1000 PRINT "week"; 

1010 TRAP 990 

1020 INPUT MILES 

1030 IF MILES < 1 OR MILES > 198 THEN 990 

1040 PRINT : PRINT "What was your resting pulse 

rate at" 

1050 PRINT "the end of the week"; 

1060 TRAP 1040 

1070 INPUT PULSE 

1080 IF PULSE < 25 OR PULSE > 198 THEN 1040 

1090 PRINT : PRINT "How much did you weight at 

weeks" 

1100 PRINT "end"; 

1110 TRAP 1090 

1120 INPUT WEIGHT 

1130 IF WEIGHT < 50 OR WEIGHT > 500 THEN 

1090 

1140 PRINT CHRSC1 25) 
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1 1 50 PRINT : PRINT "WEEK", "MILES", "PULSE" 

"WEIGHT" 

1 1 BO PRINT : PRINT WEEK, MILES, PULSE, 

WEIGHT 

1170 PRINT : PRINT "Is this information correct 

[answer" 

1180 PRINT "(Y or N]"; 

1190 INPUT AS 

1200 IF AS = "N"THEN 900 

1210 IF AS <> "Y"THEN 1170 

1300 REM ************* 

1310 REM UPDATE FILE 

1 320 REM ************* 

1330 REM 

1340 REM ** INPUT KEY FILE ** 

1350 REM 

1360 OPEN #1, 4, 0, FILE2S 

1370 FOR N = 1 TO 52 

1380 INPUT #1; S 

1390 SCN) = S 

1400 INPUT #1; C 

1410 COM) = C 

1420 NEXTN 

1430 CLOSE #1 

1440 REM 

1450 REM ** UPDATE DATA FILE ** 

1460 REM 

1470 OPEN #1, 12, 0, FILE1S 

1480 S = SCWEEK] 

1490 C = CCWEEK] 

1500 POINT #1, S, C 

1510 MILESCWEEK] = MILES + 100 

1520 PRINT #1; MILESCWEEK] 

1530 PULSECWEEK] = PULSE 4- 100 

1 540 PRINT #1 ; PULSECWEEK] 

1550 WEIGHTCWEEK] = WEIGHT+100 

1560 PRINT #1; WEIGHTCWEEK] 

1570 CLOSE #1 
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1580 IF FLAG <> 2 THEN 1630 

1590 PRINT : PRINT "Another entry (Y or N)"; 

1600 INPUT AS 

1610 IF A$ = "Y"THEN 940 

1620 IF AS <> "N" THEN 1590 

1630 PRINT CHRSC125) 

1640 PRINT : PRINT "Do you want to review the 

log"; 

1650 INPUT AS 

1660 IF AS = "N" THEN FLAG = 1 : GOTO 2110 

1670 IF AS <> "Y" THEN 1640 

1700 REM ****«**«*««*« 

1710 REM REVIEW FILE 

1720 REM ************* 

1730 REM 

1740 REM ** INPUT FILE** 

1750 REM 

1760 OPEN #1, 4, 0, FILE1S 

1770 INPUT #1; YEAR 

1780 FOR WEEK = 1 TO 52 

1790 INPUT #1; MILES 

1800IFMILES = 999THENMILES = 0:GOTO1820 

1810 MILES = MILE -100 

1820 MILESCWEEK) = MILES 

1830 INPUT #1; PULSE 

1840 IF PULSE = 999 THEN PULSE = : GOTO 

1860 

1850 PULSE = PULSE - 100 

1860 PULSECWEEK) = PULSE 

1870 INPUT #1; WEIGHT 

1880 IF WEIGHT = 999 THEN WEIGHT = : 

GOTO 1900 

1890 WEIGHT = WEIGHT - 100 

1900 WEIGHT(WEEK) = WEIGHT 

1910 NEXT WEEK 

1920 CLOSE #1 

1930 IF FLAG = 1 THEN 2230 

1940 REM 
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1950 REM ** OUTPUT FILE ** 

1960 REM 

1970 PRINT CHRSd 25] 

1980 PRINT : PRINT ."JOGGING LOG FOR "; YEAR 

1990 PRINT : PRINT "WEEK", "MILES", "PULSE", 

"WEIGHT" 

2000 FOR WEEK = 1 TO 52 

2010 PRINT WEEK, MILESCWEEK), PULSE(WEEK), 

WEIGHTCWEEK] 

2020 ROW = PEEKC84) 

2030 IF ROW >= 20 THEN PRINT : PRINT 

"PRESS RETURN TO CONTINUE REVIEW"; 

2040 TRAP 2060 

2050 IF ROW > = 20 THEN INPUT AS 

2060 ERROR = PEEKH95) 

2070 IF ERROR <> 8 AND ERROR <> THEN 

PRINT : PRINT "ERROR- "; ERROR : END 

2080 IF ERROR = 8 THEN 2030 

2090 IF ROW >= 20 THEN PRINT CHR$(125) 

2100 NEXT WEEK 

2110 PRINT : PRINT "Do you want to review the 

data on a" 

2120 PRINT "line graph (answer Y or N]"; 

2130 INPUT A$ 

2140 IF AS = "Y" AND FLAG = 1 THEN 1700 

2150 IF AS = "Y" THEN 2230 

2160 IF AS <> "N" THEN 1760 

2170 PRINT : PRINT "PROGRAM ENDED" 

21 80 END 

2200 REM ********####»*##***# 

2210 REM DRAW LINE GRAPH 

2220 REM ***H*-)HHHHHHH<-*****##* 

2230 GRAPHICS 7 

2240 REM 

2250 REM ** FIND HIGH/LOW VALUES ** 

2260 REM 

2270 FOR WEEK = 1 TO 52 

2280 IF MILESCWEEK] > MHIGH THEN MHIGH = 
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MILESCWEEK) 

2290 IF PULSE(WEEK) > PHIGH THEN PHIGH = 

PULSECWEEK) 

2300 IF WEIGHTCWEEK] > WHIGH THEN WHIGH 

= WEIGHTCWEEK] 

2310 IF MILESCWEEK) <= MLOW THEN MLOW = 

MILES [WEEK] 

2320 IF PULSECWEEK] <= PLOW THEN PLOW = 

PULSECWEEK] 

2330 IF WEIGHTCWEEK] <= WLOW THEN WLOW 

= WEIGHTCWEEK] 

2340 NEXT WEEK 

2350 REM 

23B0 REM ** FIND RANGE ** 

2370 REM 

2380 MRANGE = MHIGH - MLOW 

2390 PRANGE = PHIGH - PLOW 

2400 WRANGE = WHIGH - WLOW 

2410 REM 

2420 REM ** FIND SCALE ** 

2430 REM 

2440 MSCALE = MRANGE / 20 

2450 PSCALE = PRANGE / 20 

2460 WSCALE = WRANGE/20 

2470 REM 

2480 REM ** ASSIGN Y VALUE TO DATA ** 

2490 REM 

2500 FOR WEEK = 1 TO 52 

2510 MPLOTCWEEK] = 24 - CMILESCWEEK] - 

MLOW] / MSCALE 

2520 PPLOTCWEEK] = 49 - [PULSECWEEK) - 

PLOW) / PSCALE 

2530 WPLOTCWEEK) = 74 - CWEIGHTCWEEK) - 

WLOW) / WSCALE 

2540 NEXT WEEK 

2550 REM 

2580 REM ** DRAW PULSE RATE LINE ** 

2570 REM 
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2580 COLOR 1 

2590 PLOT 3, PPLOTC1) 

2600 FOR WEEK = 2 TO 52 

2610 IF PPLOTtWEEK] = 49 THEN FLAGtWEEK] 

= 1 : PLOT 3 * WEEK, PPLOTtWEEK] 

2620 IF PPLOTtWEEK] = 49 THEN 2640 

2630 DRAWTO 3 * WEEK, PPLOTtWEEK] 

2640 NEXT WEEK 

2560 REM 

2660 REM ** DRAW MILEAGE LINE ** 

2670 REM 

2680 COLOR 1 

2690 PLOT 3, MPLOTC1] 

2700 FOR WEEK = 2 TO 52 

2710 IF FLAGtWEEK] = 1 THEN PLOT 3 * WEEK, 

MPLOTtWEEK] : GOTO 2730 

2720 DRAWTO 3 * WEEK, MPLOTtWEEK] 

2730 NEXT WEEK 

2740 REM 

2750 REM ** DRAW WEIGHT LINE ** 

2760 REM 

2770 COLOR 1 

2780 PLOT 3, WPLOTC1] 

2790 FOR WEEK = 2 TO 52 

2800 IF FLAGtWEEK] = 1 THEN PLOT 3 * WEEK, 

WPLOT : GOTO 2820 

2810 DRAWTO 3 * WEEK, WPLOTtWEEK] 

2820 NEXT WEEK 

2830 PRINT "PROGRAM ENDED" 

2840 END 
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Section 2 



Educational Programs 

• State Capital Quiz 

• Math Quiz 

• Spelling Exerciser 

• Pattern Recognition 

• English - Metric converter 




EDUCATIONAL PROGRAMS 

The programs in this section are devoted to improving skills 
in some basic areas of learning. The first program is a quiz to 
test your ability to memorize state capitals. There is also a 
math quiz and a spelling quiz. Also included is a program to 
help develop skills for recognizing numeric patterns. The final 
program in this section is a Metric conversion program. Al- 
though it is not in a quiz form, this program has been included 
in this section because you can learn about the Metric system 
by making conversions. 
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State Capital Quiz 

Do you remember the capitals of every state in the union? Use 
this quiz to find out. The quiz is ideal for elementary school 
students who want to brush up before an exam. It is also good 
for older students. If you also want to memorize national cap- 
itals, this program can be easily modified. Simply change the 
DATA statements. Remember to first list the nation, then the 
capital. Also, the last element of DATA must be 'ZZZ'. Element 
'ZZZ' is known as an end of data flag. 
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10 REM *** STATE CAPITALS *** 

20 REM 

30 DIM ASC1J, STATESC14), CAPSH4], ANSC14), 

NAME$(20] 

40 PRINT CHR$(1 25] 

50 PRINT ."STATE CAPITALS" 

60 PRINT : PRINT "What is your name"; 

70 INPUT NAMES 

80 PRINT : PRINT "Do you want to read the 

instructions," 

90 PRINT NAMES; " (answer 'Y' or'N')"; 

100 INPUT AS 

110 IF AS = "N" THEN 430 

120 IF A$<> "Y"THEN 80 

200 REM *************** 

210 REM INSTRUCTIONS 
220 REM *************** 

230 PRINT CHRSd 25] 

240 PRINT ."INSTRUCTIONS" 

250 PRINT : PRINT "OK"; NAMES; ", we're going to 

play" 

260 PRINT "a game. The rules are simple. I'll" 

270 PRINT "show you the name of a state and ask" 

280 PRINT "you to tell me the name of it's cap-" 

290 PRINT "ital town. All you have to do is" 

300 PRINT "type in the name of the capital and" 

310 PRINT "then press the RETURN key. If your" 

320 PRINT "answer is incorrect, I'll show you" 

330 PRINT "the correct answer." 

340 PRINT "You are now ready to play the" 

350 PRINT "game. Press the RETURN key and the" 

360 PRINT "game will start." 

370 PRINT : PRINT "PRESS RETURN TO START"; 

380 INPUT AS 

400 REM ************ 

410 REM PLAY GAME 
420 REM ************ 
430 RIGHT = 
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440 TOTAL = 

450 PRINT CHRSC1 253 

460 READ STATES 

470 IF STATES = "ZZZ" THEN 730 

480 READ CAPS 

490 PRINT : PRINT "What is the capital of " 

500 PRINT STATES; 

510 INPUT ANS 

520 IF ANS <> CAPS THEN 560 

530 RIGHT = RIGHT + 1 

540 PRINT CHRSC253] : PRINT "CORRECT, "; 

NAMES; "I" 

550 GOTO 580 

560 PRINT ; PRINT "Incorrect. The capital of " 

570 PRINT STATES; " is "; CAPS; "." 

580 TOTAL = TOTAL + 1 

590 PRINT : PRINT "PRESS SPACE BAR TO 

CONTINUE." 

600 PRINT : PRINT "PRESS 'RETURN' TO STOP." 

610 KEY = PEEKC764) 

620 POKE 764, 255 

630 IF KEY = 33 THEN 450 

640 IF KEY <> 12 THEN 610 

700 REM ****************** 

710 REM COMPUTE SCORE 
720 REM ****************** 

730 SCORE = INTCRIGHT / TOTAL * 100) 

740 PRINT CHRSC1 25) 

750 PRINT : PRINT "You were right on "; RIGHT;" 

out of "; TOTAL 

760 PRINT "questions for a score of "; SCORE; "°/o." 

770 IF SCORE = 100 THEN PRINT "Excellent, "; 

NAMES; "!" : GOTO 800 

780 IF SCORE > 90 THEN PRINT "Very good, "; 

NAMES ; "!" 

790 IF SCORE < 80 THEN PRINT "You can use 

some more practice." 

800 PRINT : PRINT "Do you want to play again (Y or 

N)"; 
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810 INPUT A$ 

820 IF AS = "Y" THEN RESTORE :GOTO 430 

830 IF AS <> "N" THEN 800 

840 PRINT : PRINT "SEE YOU LATER, "; NAMES; 

"I" 

850 END 

900 REM ***** 

910 REM DATA 

920 REM ***** 

930 DATA ALABAMA, MONTGOMERY, ALASKA, 

JUNEAU, ARIZONA, PHOENIX 

940 DATA ARKANSAS, LITTLE ROCK, 

CALIFORNIA, SACRAMENTO, COLORADO, 

DENVER 

950 DATA CONNECTICUT, HARTFORD, 

DELAWARE, DOVER, FLORIDA, TALLAHASSEE 

960 DATA GEORGIA, ATLANTA, HAWAII, 

HONOLULU, IDAHO, BOISE, ILLINOIS, 

SPRINGFIELD 

970 DATA INDIANA, INDIANAPOLIS, IOWA, DES 

MOINES, KANSAS, TOPEKA 

980 DATA KENTUCKY, FRANKFORT, LOUISIANA, 

BATON ROUGE, MAINE, AUGUSTA 

990 DATA MARYLAND, ANNAPOLIS, 

MASSACHUSETTS, BOSTON, MICHIGAN, 

LANSING 

1000 DATA MINNESOTA, ST. PAUL, MISSISSIPPI, 

JACKSON, MISSOURI, JEFFERSON CITY 

1010 DATA MONTANA, HELENA, NEBRASKA, 

LINCOLN, NEVADA, CARSON CITY 

1020 DATA NEW HAMPSHIRE, CONCORD, NEW 

JERSEY, TRENTON, NEW MEXICO, SANTA FE 

1030 DATA NEW YORK, ALBANY, NORTH 

CAROLINA, RALEIGH, NORTH DAKOTA, 

BISMARCK 

1040 DATA OHIO, COLUMBUS, OKLAHOMA, 

OKLAHOMA CITY, OREGON, SALEM 

1050 DATA PENNSYLVANIA, HARRISBURG, 
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RHODE ISLAND, PROVIDENCE 

1060 DATA SOUTH CAROLINA, COLUMBIA, 

SOUTH DAKOTA, PIERRE, TENNESSEE, 

NASHVILLE 

1070 DATA TEXAS, AUSTIN, UTAH, SALT LAKE 

CITY, VERMONT MONTPELIER 

1080 DATA VIRGINIA, RICHMOND, WASHINGTON, 

OLYMPIA, WEST VIRGINIA, CHARLESTON 

1090 DATA WISCONSIN, MADISON, WYOMING, 

CHEYENNE, ZZZ 
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Math Quiz 

Here's a math quiz for elementary school children learning the 
basics. The program randomly selects problems in addition, 
subtraction, multiplication, and division. You are given one 
minute to answer each question. At the end of the quiz, the 
program will score your performance. The program awards bo- 
nus points if you correctly answer a problem quickly. However, 
you score more for accuracy than speed. 




The program also has a feature that allows you to review the 
problems you've missed. The program does this by converting 
each wrong answer to the string variable ELEM$ (lines 1540- 
1780). At line 1790 the program concatenates each wrong an- 
swer into the string WRONG$. The string is split and printed 
in lines 2130 - 2190. 
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10 REM *** MATH QUIZ*** 

20 REM 

30 GRAPHICS 

40 DIM A$(1), N$C12), X$C3), Y$(2), Z$(3) 

50 DIM ELEMSC13), 0P$£1), WR0NG$C1 30) 

B0 DIM SCOREC100) 

70 N = 

80 PRINT CHR$(125] 

90 PRINT ,"MATH GAME" 

100 PRINT : PRINT "What is your name"; 

110 INPUT N$ 

120 PRINT CHR$(1 25) 

130 PRINT : PRINT "Hello, "; N$; "I" 

140 PRINT : PRINT "Do you want to see the 

instructions" 

150 PRINT "[answer Y or N)"; 

160 INPUT A$ 

170IFAS = "N"THENPRINTCHR$(125):GOTO390 

180 IF A$ <> "Y"THEN 140 

200 REM **«#*********** 

210 REM INSTRUCTIONS 
220 REM *«*#*#*#****** 

230 PRINT CHR$(125) 
240 PRINT : PRINT ."INSTRUCTIONS" 
250 PRINT : PRINT " OK "; N$; ". We're going to" 
260 PRINT "play a game. The rules are easy. I" 
270 PRINT "will show you a math problem. When" 
280 PRINT "you see the problem, I want you to" 
290 PRINT "type in the answer and then press" 
300 PRINT "the RETURN key. I will give you one" 
310 PRINT "minute to answer the problem. If you" 
320 PRINT "can't answer the problem in one min-" 
330 PRINT "ute, I will give you another problem." 
340 PRINT "Each time we play the game I will" 
350 PRINT "give you 10 problems. At the end of" 
360 PRINT "the game I will tell you how well" 
370 PRINT "you have done. That's all there is" 
380 PRINT "to it!" 
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390 PRINT : PRINT "WHEN YOU ARE READY TO 

PLAY THE GAME" 

400 PRINT "JUST PRESS THE RETURN-KEY." 

410 INPUT A$ 

500 REM #****##******#** 

510 REM SET VARIABLES 
520 REM **************** 

530 N = N + 1 

540 NUM = 

550 WRONG = 

560 FLAG = 

570 J = 1 

580 LN = 13 

590 SCORE = 

600 FOR I = 1 TO 100 

610 WRONGSCI.I] = " " 

620 NEXT I 

630 GRAPHICS 2 

640 SETC0L0R4, 10, 10 

650 SETCOLOR 0, 8, 8 

700 REM ********************** 

710 REM GENERATE PROBLEM 
720 REM ********************** 

730 PRINT CHR$[1253 

740 NUM = NUM + 1 

750 PROB = INTC4 * RNDC0) + 1] 

760 A = INTC12* RNDCOH + 1 

770 B = INTC12* RNDC0)) + 1 

780 POSITION 8, 

790 PRINT #6; "1:00" 

800 POSITION 7, 5 

810 ON PROB GOTO 850, 920, 1000, 1070 

820 REM 

830 REM ** ADDITION ** 

840 REM 

850 CORR = A + B 

860 PRINT #6; A; " + "; B;"= ? " 

870 OPS = " + " 
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880 GOTO 1230 

890 REM 

900 REM ** SUBTRACTION ** 

910 REM 

920 IF A - B < THEN 760 

930 CORR = A - B 

940 PRINT #6; A; "-"; B; " = ? " 

950 OPS = "-" 

960 GOTO 1230 

970 REM 

980 REM ^MULTIPLICATION ** 

990 REM 

1 000 CORR = A * B 

1010 PRINT #6; A; "x"; B; "= ? " 

1020 OPS = "x" 

1030 GOTO 1230 

1040 REM 

1050 REM ** DIVISION** 

1060 REM 

1 070 C = A * B 

1080 CORR = B 

1090 PRINT #6; C; 7"; A; " = ? " 

1100 OPS = 7" 

1 200 REM '******************** 

1210 REM ANSWER PROBLEM 

1220 REM ******************** 

1230 CLOCK = 60 

1240 FOR TIME = 1 TO 75 

1250 K = PEEKC764) 

1260 TRAP 1280 

1270 IF K <> 255 THEN INPUT ANS : GOTO 1430 

1280 NEXT TIME 

1290 POSITION 8, 

1300 CLOCK = CLOCK - 1 

1310 IF CLOCK <= 9 THEN 1340 

1320 PRINT #6; "0"; CLOCK 

1330 GOTO 1240 
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1340 PRINT #6; "0:0"; CLOCK 

1350 IF CLOCK = THEN PRINT CHRSC253) : 

ANS = -1 : GOTO 1430 

1360 GOTO 1240 

1400 REM ****************** 

1410 REM CHECK PROBLEM 
1420 REM ****************** 

1430 IF ANS <> CORR AND NUM < 10 THEN 

1530 

1440 |F ANS <> CORR THEN FLAG = 1 : GOTO 

1530 

1450 SCORE = SCORE + 10 

14B0 IF CLOCK > 40 THEN SCORE = SCORE + 1 

1470 IF CLOCK > 50 THEN SCORE = SCORE + 1 

1480 IF NUM < 10 THEN 730 

1490 GOTO 1330 

1500 REM ************************ 

1510 REM SAVE WRONG ANSWER 
1 520 REM ************************ 

1530 WRONG = WRONG + 1 

1540 IF PROB = 4 THEN X$ = STRSO 

1550 IF PROB = 4 THEN Y$ = STRSCA] : GOTO 

1580 

15B0 XS = STRSCA) 

1570 Y$ = STRS(B) 

1580 Z$ = STRSCCORR] 

1590 FOR N = 1 TO 13 

1600 ELEMSCN.N] = " " 

1610 NEXT N 

1620 I = 1 

1630 L = LENCXS] - 1 

1640 ELEMSCIJ + L] = XS 

1650 I = I + L + 1 

1660 ELEMSCIJ] = " " 

1670 1 = 1 + 1 

1680 ELEMSCIJ] = OPS 

1690 1 = 1 + 1 

1700 ELEMSCIJ] = " " 
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1710 1 = 1 + 1 

1720 L = LEN(YS) - 1 

1730 ELEMSCI.I + L) = Y$ 

1740 | = | + L + 1 

1750 ELEMSCI.I + 2) = " = " 

1760 I = I + 3 

1770 L = LENCZS) - 1 

1780 ELEMSCI.I + L) = Z$ 

1790 WRONGSU.J + LN - 1] = ELEMS 

1 800 J = J + LN 

1810 IF FLAG = 1 THEN 1930 

1820 GOTO 730 

1 900 REM ************** 

1910 REM FINISH GAME 

1920 REM ************** 

1930 SCORE(N) = SCORE 

1940 GRAPHICS 

1950 PRINT CHRSC125) 

1960 PRINT : PRINT "You have finished the game, " 

N$; "." 

1970 PRINT "Good for you!" 

1980 PRINT : PRINT "Your score is "; SCORE; 

"points." 

1990 IF SCORE >= 100 THEN PRINT 

"Outstanding, "; N$; "!" : GOTO 2010 

2000 IF SCORE >= 80 THEN PRINT "Good score, 
... N$; .... 

2010 IF WRONG = THEN 2200 

2020 PRINT : PRINT "Do you want to see the 

problem"; 

2030 IF WRONG > 1 then print "s"; 

2040 PRINT " YOU" 

2050 PRINT "MISSED"; 

2060 INPUT AS 

2070 IF AS = "N" THEN 2200 

2080 IF AS <> "Y" THEN 2020 

2100 REM ***************************** 

2110 REM DISPLAY WRONG ANSWERS 
2120 REM ***************************** 
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2130 PRINT CHRSC125] 

2140 J = 1 

2150 FOR I = 1 TO WRONG 

2160 PRINT WRONGSU.J + LN - 1] 

2170 PRINT 

2180 J = J + LN 

2190 NEXT I 

2200 PRINT : PRINT "Do you want to play again 

[answer Y" 

2210 PRINT "or N)"; 

2220 INPUT AS 

2230 IF A$ = "Y" THEN PRINT CHRSC125) : GOTO 

530 

2240 IF AS <> "N" THEN 2200 

2250 PRINT : PRINT "So long, "; N$; ". See you 

later!" 

2260 END 
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Spelling Exerciser 

The following program can be used to strengthen your power of 
recall and spelling. The program is a game that flashes words on 
the video screen. Your response is to correctly spell the word you 
have seen. The program offers three speeds. The higher the 
speed, the less amount of time you will have to read the words. 




You can adjust the speeds by changing the values for the var- 
iable SPEED in lines 610 - 630. You can also change the words 
used by the program by adding your own with DATA statements 
such as the one in line 1230. You can use as many words as 
you like. The last item in the DATA statements must be 'ZZZ'. 
This signals an end of data. Also, if one of your words exceeds 
15 characters, change the DIMensions of WORD$ and REPLY$ 
in line 30. 
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10 REM *** SPELLING EXERCISER *** 
20 REM 

30 DIM A$C1), NSC12), REPLYSC15), W0RDSC15] 
40 PRINT CHR$(125) 

50 PRINT : PRINT "Do you want to read the 
instructions" 

60 PRINT "(answer Y or N)"; 
70 INPUT AS 

80 IF AS = "N" THEN 430 
90 IF AS <> "Y" THEN 60 
100 REM «***«**«**^<«* 
110 REM INSTRUCTIONS 
120 REM *************** 
130 PRINT CHRSC1 25) 
140 PRINT : PRINT ."INSTRUCTIONS- 
ISO PRINT : PRINT " This program is a game that 
will" 

160 PRINT "help you spell words better. It is an" 
170 PRINT "easy game to play. The computer will" 
180 PRINT "show you a word. After a few seconds" 
190 PRINT "the word will disappear. When the" 
200 PRINT "word is gone you will be asked to" 
210 PRINT "spell the word. All you have to do" 
220 PRINT "is type in the word and then press" 
230 PRINT "the RETURN key. After you type in the" 
240 PRINT "word, the computer will show you a" 
250 PRINT "new word. Answer each new word the" 
260 PRINT "same way you answered the first 
word." 

270 PRINT : PRINT "AFTER YOU READ THESE 
INSTRUCTIONS" 

280 PRINT "YOU WILL BE READY TO PLAY THE 
GAME." 

290 PRINT "IF YOU ARE READY, PRESS THE 
RETURN KEY"; 
300 INPUT AS 
400 REM *************** 
410 REM PLAYER INPUT 
420 REM *************** 
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430 PRINT CHRSC1 25) 

440 PRINT : PRINT "What is your name"; 

450 INPUT N$ 

4B0 TOTAL = 

470 RIGHT = 

480 PRINT : PRINT "OK "; N$; "one more thing 

before" 

490 PRINT "we can start. Choose one of the three" 

500 PRINT "speeds below. If you choose FAST the" 

510 PRINT "word will disappear after a short" 

520 PRINT "time. If you choose SLOW the word" 

530 PRINT "will disappear after a longer amount" 

540 PRINT "of time." 

550 PRINT : PRINT "What speed do you want?" 

560 PRINT : PRINT "1) FAST 2) MEDIUM 3) SLOW" 

570 TRAP 560 

580 INPUT SPEED 

590 IF SPEED < 1 OR SPEED > 3 THEN 560 

600 ON SPEED GOTO 610, 620, 630 

610 SPEED = 30 : GOTO 640 

620 SPEED = 60 : GOTO 640 

630 SPEED = 90 

640 PRINT : PRINT "OK "; N$; ", you are now ready" 

650 PRINT "to begin the game. When you want to" 

660 PRINT "start press the RETURN key"; 

670 INPUT A$ 

700 REM *********** 

710 REM RUN GAME 
720 REM *********** 

730 PRINT CHRSC1 25) 

740 READ WORDS 

750 IF WORDS = "ZZZ" THEN 930 

760 TOTAL = TOTAL +1 

770 PRINT : PRINT , WORDS 

780 FOR TIME = 1 TO SPEED 

790 NEXT TIME 

800 PRINT CHRSC125) : REM ** WORD 

DISAPPEARS ** 
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810 PRINT : PRINT "Spell the word." 

820 INPUT REPLYS 

830 IF REPLYS = WORDS THEN PRINT : PRINT 

CHRSC253) : PRINT "CORRECT!" 

840 IF REPLYS = WORDS THEN RIGHT = RIGHT 

+ 1 : GOTO 860 

850 PRINT : PRINT "INCORRECT." 

860 PRINT : PRINT "When you are ready for the 

next word" 

870 PRINT "press the RETURN key."; 

880 INPUT AS 

890 GOTO 730 

900 REM ************** 

910 REM END OF GAME 

920 REM ************** 

930 PRINT CHRSC1 25] 

940 PERCENT = RIGHT / TOTAL * 100 

950 PRINT : PRINT " You have finished the game. 

You" 

960 PRINT "were correct on "; RIGHT; " out of "; 

TOTAL; " words for" 

970 PRINT " a score of "; PERCENT; " percent." 

980 IF PERCENT >= 80 THEN PRINT " Very good, 

"; N$; "!" : GOTO 1020 

990 PRINT " Maybe you should play with these" 

1000 PRINT "words some more before trying any 

new" 

1010 PRINT "ones,"; NS; "." 

1020 PRINT : PRINT " Do you want to play the 

game" 

1030 PRINT "again, "; NS; "?" 

1040 PRINT :PRINT "IF YOU WANT TO PLAY 

AGAIN, TYPE" 

1050 PRINT "the Y key and then press RETURN." 

1060 PRINT " If you do not want to play, type" 

1070 PRINT "the N key and then press RETURN." 

1080 INPUT AS 

1090 IF AS = "N" THEN PRINT : PRINT " Bye, "; 
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N$; ". See you later!" : END 

1100 IF A$ <> "Y" THEN 1040 

1110 RESTORE 

1120 PRINT CHR$(1 25) 

1130 GOTO 460 

1 200 REM ***** 

1210 REM DATA 

1 220 REM ***** 

1230 DATA DOG, CAT, MOUSE, BIRD, ZZZ 
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Pattern Recognition 

This is a game that will test and improve your ability to rec- 
ognize simple numeric patterns. First, the program randomly 
selects the type of pattern (line 430). There are seven different 
patterns. Next, the program randomly generates the numbers 
in the series (lines 530 - 1400). The fifth number in a series is 
assigned to the numeric variable ANS. If your answer corre- 
sponds to this variable, you have answered the problem cor- 
rectly. As a programming exercise you can expand the number 
of patterns (or better yet, create the patterns randomly). 





®^@§» 
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10 REM *** PATTERN RECOGNITION *** 

20 REM 

30 DIM A$tU REPLYSC3] 

40 PRINT CHRSC125] 

50 PRINT ."PATTERNS" 

B0 PRINT : PRINT "Do you want instructions (Y or 

N)"; 

70 INPUT A$ 

80 IF A$ = "N" THEN 300 

90 IF AS <> "Y" THEN B0 

100 REM ****#*******#** 

110 REM INSTRUCTIONS 

120 REM ************** 

130 PRINT CHRSC1 25] 

140 PRINT : PRINT "OK here's how the game is 

played." 

150 PRINT "I'll show you four numbers. These four" 

160 PRINT "numbers will form a certain pattern." 

170 PRINT "Your job is to enter the fifth number" 

180 PRINT "in the pattern. Here is an example:" 

190 PRINT : PRINT " 5, 10, 15, 20, ?" 

200 PRINT : PRINT "PRESS RETURN FOR THE 

ANSWER" 

210 INPUT A$ 

220 PRINT CHR$[1 25] 

230 PRINT : PRINT "The answer is 25. The pattern 

is" 

240 PRINT "5, 10, 15, 20, 25. When you want to" 

250 PRINT "stop playing, type in 'Q' for your" 

260 PRINT "answer. You are now ready to begin" 

270 PRINT "play." 

280 PRINT : PRINT "PRESS RETURN TO START"; 

290 INPUT A$ 

300 RIGHT = 

310 TOTAL = 

400 REM «**««*«*»««iHH^H t * 

410 REM CHOOSE PATTERN 
420 REM ****************** 
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430 PATT = INTC7 * RNDCO)) + 1 

440 IF PATT = 4 THEN FLAG = 1 

450 ON PATT GOTO 500, 600, 700, 700, 1000, 

1100, 1300 

500 REM *********** 

510 REM PATTERN 1 

520 REM *********** 

530 NUM = INTC10 * RNDCO)] + 1 

54Q A1 = NUM 

550 A2 = 2 * NUM 

560 A3 = 3 * NUM 

570 A4 = 4 * NUM 

580 ANS = 5 * NUM 

590 GOTO 1500 

600 REM *********** 

610 REM PATTERN 2 

620 REM *********** 

630 NUM = INTC9 « RNDCO)) + 1 

640 A1 = NUM 

650 A2 = 2 * NUM 

660 A3 = 2 * A2 

670 A4 = 2 * A3 

680 ANS = 2 " A4 

690 GOTO 1500 

700 REM *********** 

710 REM PATTERN 3 

720 REM *********** 

730 NUM = INTC10 * RNDCO)) + 1 

740 A1 = INTCNUM " 2 + 0.1) 

750 A2 = INTCCNUM + 1) " 2 + 0.1) 

760 A3 = INTCCNUM + 2) " 2 + 0.1) 

770 A4 = INTCCNUM + 3) " 2 + 0.1) 

780 ANS = INTCCNUM + 4) " 2 + 0.1) 

790 IF FLAG = 1 THEN 810 

800 GOTO 1500 

810 TEMPI = A1 

820 TEMP2 = A2 

830 TEMP4 = A4 
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840 TEMP5 = ANS 

900 REM *********** 

910 REM PATTERN 4 

920 REM *********** 

930 A1 = TEMP5 

940 A2 = TEMP4 

95Q A4 = TEMP2 

960 ANS = TEMPI 

970 FLAG = 

980 GOTO 1500 

1000 REM *********** 

1010 REM PATTERN 5 

1020 REM *********** 

1030 NUM = INTC10 * RNDC0}) + 1 

1040 A1 = INTC100* RNDC0TJ + 1 

1050 A2 = A1 - NUM 

1060 A3 = A2 - NUM 

1070 A4 = A3 - NUM 

1080 ANS = A4 - NUM 

1090 GOTO 1500 

1100 REM *********** 

1110 REM PATTERN 6 

1 1 20 REM *********** 

1130 NUM1 = INTC10 * RNDC0)) + 1 

1140 NUM2 = INTC10* RNDC0)) + 1 

1150 IF NUM1 = NUM2 THEN 1330 

1160A1 = INTC100* RND(0]] + 1 

1170 A2 = A1 - NUM1 

1180 A3 = A2 + NUM2 

1190 A4 = A3 - NUM1 

1200 ANS = A4 + NUM2 

1210 GOTO 1500 

1 300 REM *********** 

1310 REM PATTERN 7 

1 320 REM *********** 
1330 NUM1 = INTC10* RNDC0)) + 1 
1340 NUM2 = INTC10 * RND(O)) + 1 
1350 IF NUM1 = NUM2 THEN 1130 
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1360 A1 = [NTC1CKD * RNDC0J3 + 1 

1370 A2 = A1 + NUM1 

1380 A3 = A2 - NUM2 

1390 A4 = A3 + NUM1 

1400 ANS = A4 - NUM2 

1 500 REM ************ 

1510 REM USER INPUT 
1 520 REM ************ 

1530 PRINT CHRSC1 25] 

1 540 PRINT : PRINT A1 ; ", "; A2; ", "; A3; ", "; A4; ", 

1560 INPUT REPLYS 

1570 IF REPLYS = "Q" THEN 1800 

1580 TRAP 1540 

1590 IF VAL(REPLYS) = ANS THEN 1660 

1600 PRINT : PRINT "INCORRECT. THE CORRECT 

NUMBER IS ";ANS 

1610 TOTAL = TOTAL + 1 

1620 PRINT : PRINT A1; ", "; A2; ", "; A3; ", "; A4; ", 

"; ANS 

1630 PRINT : PRINT "PRESS RETURN FOR NEXT 

PATTERN"; 

1640 INPUT AS 

1650 GOTO 430 

1660 PRINT CHR$(253); 

1670 PRINT : PRINT "CORRECT!" 

1680 RIGHT = RIGHT + 1 

1 690 TOTAL = TOTAL + 1 

1 700 PRINT : PRINT A1 ; ", "; A2; ", "; A3; ", "; A4; 

","; ANS 

1710 PRINT : PRINT "PRESS RETURN FOR NEXT 

PATTERN"; 

1720 INPUT AS 

1730 GOTO 430 

1 800 REM ******************** 

1810 REM CALCULATE SCORE 

1 820 REM ******************** 

1830 PRINT CHRSd 25) 
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1840 SCORE = INTCRIGHT / TOTAL * 100) 

1850 PRINT : PRINT "You were correct on "; 

RIGHT;" OUT OF" 

1860 PRINT TOTAL;" patterns for a score of" 

SCORE; "o/o." 

1870 PRINT : PRINT "Play again (Y or N)"; 

1880 INPUT A$ 

1890 IF AS = "Y" THEN 290 

1900 IF AS <> "N" THEN 1870 

1910 PRINT : PRINT "PROGRAM ENDED." 

1920 END 
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English - Metric Converter 

This program converts from English to Metric and vice versa. 
The program converts the commonly used units of length, weight 
capacity, and temperature. When RUN, the program displays 
a main menu. Select one of the five options and press RETURN. 




Next, the program displays a menu with the English and Metric 
units to be converted. You will notice the prompt "CONVERT 
FROM?" Input the menu number of the unit you are converting 
from. Now the program prompts "CONVERT TO?" Input the 
menu number of the unit you want to convert to. The program 
will ask "INPUT NUMBER OF UNITS?" Input the amount of 
whatever it is you're converting from. The program will display 
the answer. At this point you have two options: press the SPACE 
BAR and the menu you are currently in will remain for you 
to make another conversion or press RETURN and you will re- 
turn to the main menu. 
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10 REM *** METRIC CONVERTER *** 

20 REM 

30 DIM ASCI), UNIT1SC11], UNIT2SC11] 

100 REM ************ 

110 REM MAIN MENU 

1 20 REM ************ 

130 PRINT CHRSC1 25) 

140 PRINT : PRINT " 1] LENGTH" 



23 WEIGHT" 
3] CAPACITY" 
4) TEMPERATURE" 
5] END PROGRAM" 
SELECT OPTION"; 



150 PRINT: PRINT 

160 PRINT: PRINT 

170 PRINT: PRINT 

180 PRINT: PRINT 

190 PRINT: PRINT 

200 TRAP 190 

210 INPUT N 

220 IF N < 1 OR N > 5 THEN 190 

230 ON N GOTO 330, 1130, 1730, 2330, 240 

240 PRINT : PRINT "PROGRAM ENDED." 

250 END 

300 REM********* 

310 REM LENGTH 

320 REM********* 

330 PRINT CHR$[1 25] 

340 PRINT : PRINT " 1] INCHES", "5] 

MILLIMETERS" 

350 PRINT : PRINT 

360 PRINT : PRINT 

DECIMETERS" 

370 PRINT : PRINT 

380 PRINT : PRINT 

390 PRINT : PRINT 

400 TRAP 390 

410 INPUT F 

420 IF F < 1 OR F > 9 THEN 390 

430 PRINT : PRINT "CONVERT TO"; 

440 TRAP 430 

450 INPUT T 

460 IF F < 5 AND T < 5 THEN 430 



2] FEET ", "6] CENTIMETERS" 
3] YARDS", "7] 

4] MILES", "8] METERS" 
" 9] KILOMETERS" 
CONVERT FROM"; 
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470 IF F > 5 AND T >5 THEN 430 

480 IF T < 1 OR T > 9 THEN 430 

490 IF F < 5 THEN ON F GOTO 510, 540, 570, 

600 

500 IF F > 5 THEN ON F - 4 GOTO 630, 660, 

690, 720, 750 

510 C = 25.4 

520 UNIT1S = "INCHES" 

530 GOTO 770 

540 C = 304.8 

550 UNIT1S = "FEET" 

560 GOTO 770 

570 C = 914.4 

580 UNIT1S = "YARDS" 

590 GOTO 770 

600 C = 1609304 

610 UNIT1S = "MILES" 

620 GOTO 770 

630 C = 3.3E - 03 

640 UNIT1S = "MILLIMETERS" 

650 GOTO 770 

660 C = 0.0328 

670 UNIT1S = "CENTIMETERS" 

680 GOTO 770 

690 C = 0.3281 

700 UNIT1S = "DECIMETERS" 

710 GOTO 770 

720 C = 3.2808 

730 UNIT1$ = "METERS" 

740 GOTO 770 

750 C = 3280.8315 

760 UNIT1S = "KILOMETERS" 

770 IF T < 5 THEN ON T GOTO 790, 820, 850, 

880 

780 ON T - 4 GOTO 910, 940, 970, 1000, 1030 

790 A = 12 

800 UNIT2S = "INCHES" 

810 GOTO 2630 
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820 A = 1 

830 UNIT2S = "FEET" 

840 GOTO 2630 

850 A = 0.3333 

860 UNIT2S = "YARDS" 

870 GOTO 2630 

880 A = 1.894E -04 

890 UNIT2S = "MILES" 

900 GOTO 2630 

910 A = 1 

920 UNIT2$ = "MILLIMETERS" 

930 GOTO 2630 

940 A = 0.1 

950 UNIT2S = "CENTIMETERS" 

960 GOTO 2630 

970 A = 0.01 

980 UNIT2$ = "DECIMETERS" 

990 GOTO 2630 

1000 A = 1.0E - 03 

1010 UNIT2S = "METERS" 

1020 GOTO 2630 

1030 A = 1E - 06 

1040 UNIT2S = "KILOMETERS" 

1050 GOTO 2630 

1100 REM ******** 

1110 REM WEIGHT 

1120 REM ******** 

1130 PRINT CHRSC1 25) 

1140 PRINT : PRINT " 1) OUNCES", "4) GRAMS" 

1150 PRINT : PRINT " 2) POUNDS", "5) 

KILOGRAMS" 

1160 PRINT : PRINT " 3) TONS ", "6) METRIC 

TONS" 

1170 PRINT : PRINT "CONVERT FROM"; 

1180 TRAP 1170 

1190 INPUT F 

1200 IF F < 1 OR F > 6 THEN 1170 

1210 PRINT : PRINT "CONVERT TO"; 
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1220 TRAP 1210 

1230 INPUT T 

1240 IF F < 4 AND T < 4 THEN 1210 

1250 IF F >= 4 AND T >= 4 THEN 1210 

1260 IF T < 1 OR T > B THEN 1210 

1 270 IF F < 4 THEN ON F GOTO 1 230, 1 320, 1 350 

1280 ON F - 3 GOTO 1380, 1410, 1440 

1290 C = 28.35 

1300 UNIT1S = "OUNCES" 

1310 GOTO 1460 

1320 C = 453,6 

1330 UNIT1S = "POUNDS" 

1340 GOTO 1460 

1350 C = 907200 

1360 UNIT1S = "TONS" 

1370 GOTO 1460 

1380 C = 2.1875E - 03 

1390 UNIT1S = "GRAMS" 

1400 GOTO 1460 

1410 C = 2.1875 

1420 UNIT1S = "KILOGRAMS" 

1430 GOTO 1460 

1440 C = 2204 

1450 UNIT1S = "METRIC TONS" 

1460IFT<4THENONTGOTO 1480, 1510, 1540 

1470 ON T - 3 GOTO 1570, 1600, 1630 

1480 A = 16 

1490 UNIT2S = "OUNCES" 

1500 GOTO 2630 

1510 A = 1 

1520 UNIT2$ = "POUNDS" 

1530 GOTO 2630 

1 540 A = 5E - 04 

1550 UNIT2S = "TONS" 

1560 GOTO 2630 

1570 A = 1 

1580 UNIT2S = "GRAMS" 

1590 GOTO 2630 
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1600 A = 1.0E - 03 

1610 UNIT2S = "KILOGRAMS" 

1620 GOTO 2630 

1630 A = 1.00026E - 06 

1640 UMT2$ = "METRIC TONS" 

1650 GOTO 2630 

1 700 REM **«******« 

1710 REM CAPACITY 

1720 REM ***^*«*«« 

1730 PRINT CHRSC125) 

1740 PRINT : PRINT " 1) PINTS ", "5) 

MILLILITERS" 



PRINT " 2] QUARTS", "6] LITERS" 
PRINT" 3] GALLONS" 
PRINT " 4] DRY QUARTS" 
PRINT "CONVERT FROM"; 



1750 PRINT 

1760 PRINT 

1770 PRINT 

1780 PRINT 

1790 TRAP 1780 

1800 INPUT F 

1810 IF F < 1 OR F > 6 THEN 1780 

1820 PRINT : PRINT "CONVERT TO"; 

1830 TRAP 1820 

1840 INPUT T 

1850 IF F < 5 AND T < 5 THEN 1820 

1860 IF F >= 5 AND T >= 5 THEN 1820 

1870 IF T < 1 OR T > 6 THEN 1820 

1880 IF F < 5 THEN ON F GOTO 1900, 1930, 

1960, 1990 

1890 ON F - 4 GOTO 2020, 2050 

1900 C = 0.425 

1910 UNIT1S = "PINTS" 

1920 GOTO 2070 

1930 C = 0.95 

1940 UNIT1S = "QUARTS" 

1950 GOTO 2070 

1960 C = 1.9 

1970 UNIT1S = "GALLONS" 

1980 GOTO 2070 

1990 C = 1.1 
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2000 UNIT1S = "DRY QUARTS" 

2010 GOTO 2070 

2020 C = LOBE - 03 

2030 UNIT1S = "MILLILITERS" 

2040 GOTO 2070 

2050 C = 1.06 

2060 UNIT1S = "LITERS" 

2070 IF T < 5 THEN ON T GOTO 2090, 2120, 

2150, 21B0 

2080 ON T - 4 GOTO 2210, 2240 

2090 A = 2 

2100 UNIT2S = "PINTS" 

2110 GOTO 2630 

2120 A = 1 

2130 UNIT2S = "QUARTS" 

2140 GOTO 2630 

2150 A = 0.5 

2160 UNIT2S = "GALLONS" 

2170 GOTO 2630 

2180 A = 0.859 

2190 UNIT2S = "DRY QUARTS" 

2200 GOTO 2630 

2210 A = 1000 

2220 UNIT2$ = "MILLILITERS" 

2230 GOTO 2630 

2240 A = 1 

2250 UNIT2S = "LITERS" 

2260 GOTO 2630 

2300 REM *************** 

2310 REM TEMPERATURE 

2320 REM *************** 

2330 PRINT CHRSC125) 

2340 PRINT : PRINT " 1] FAHRENHEIT", "2) 

CENTIGRADE" 

2350 PRINT : PRINT "CONVERT FROM"; 

2360 TRAP 2350 

2370 INPUT F 

2380 IF F < 1 OR F > 2 THEN 2350 
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2390 ON F GOTO 2400, 2430 

2400 UNIT1S = "FAHRENHEIT" 

2410 UNIT2S = "CENTIGRADE" 

2420 GOTO 2450 

2430 UNIT1S = "CENTIGRADE" 

2440 UNIT2S = "FAHRENHEIT" 

2450 PRINT : PRINT "INPUT DEGREES "; UNIT1S; 

2460 TRAP 2450 

2470 INPUT NUM 

2480 IF F = 1 THEN ANS = [NUM - 32) * 5 / 9 

2490 IF F = 2 THEN ANS = NUM * 9 / 5 + 32 

2500 PRINT : PRINT NUM; " DEGREES "; 

UNIT1$(1,1); " = "; ANS; " DEGREES "; 

UNIT2$f1,1] 

2510 GOTO 2690 

2600 REM tt*****-******-******** 

2610 REM CONVERT, ANSWER 

2620 REM ********«***»**»*«** 

2630 PRINT : PRINT "INPUT NUMBER OF "; 

UNIT1S; 

2640 TRAP 2630 

2650 INPUT NUM 

2660 IF NUM <= THEN 2630 

2670 ANS = NUM * C * A 

2680 PRINT : PRINT NUM; " "; UNIT1S; " = "; ANS; 

" "; UNIT2S 

2690 KEY = PEEKC764) 

2700 POKE 764, 255 

2710 IF KEY = 12 THEN 130 

2720 IF KEY = 33 THEN ON N GOTO 330, 1 1 30, 

1730, 2330 

2730 GOTO 2690 
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Section 3 



Programs for Entertainment 

• Number Guess 

• Joystick Doodler 

• Craps Came 

• Role ■ Playing Dice Roller 

• Role - Playing Character Generator 
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ENTERTAINMENT 

The programs in this part of the book will give you an idea of 
the types of game applications possible on your Atari. The first 
game is a simple number guessing game, the second game is 
a program that enables you to draw pictures on your monitor 
using a joystick. The next game is Craps, this game introduces 
you to the interesting area of simulations. The final two games 
are actually game aids. With the increasing popularity of Fan- 
tasy / Sci - Fi role playing games, it seems appropriate to use 
your Atari to lessen the paper work involved with these games. 
The role playing Dice Roller is very helpful in the middle of a 
game when you have to roll large numbers of dice to resolve 
combat and damage. With the Character Generator you can 
create literally thousands of characters by simply entering a 
few numbers. The nice feature of this program is it's adaptable 
to any role playing system. 
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Number Guess 

One of the first programs most people write is a number guess- 
ing game. If you haven't done one, here it is! 




In line 340, the program generates a random number between 1 
and 100. Lines 360 - 400 input your guess. If you're wondering 
what line 390 (TRAP 380) means, this line is an error trap. If 
by accident you entered a letter instead of a number in response 
to line 380, an ERROR- 8 (INPUT Statement Type Mismatch) 
would occur and the program would end. What the TRAP does 
is tell the computer that if an error occurs, go to line 380 rather 
than end the program. 

Lines 420 - 440 compares your guess (GUESS) with the random 
number (N ) .The variable T is a counter that counts the number 
of guesses you make. 
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10 REM *** NUMBER GUESS *** 

20 REM 

30 DIM AStU 

40 PRINT CHRSC1 25] 

100 REM *************** 

110 REM INSTRUCTIONS 

120 REM *************** 

130 PRINT : PRINT "I will choose a number from 1 

to 100." 

140 PRINT "Try to guess the number. I will give" 

150 PRINT "you hints as you guess. When you are" 

160 PRINT "ready to play press the RETURN key." 

170 INPUT AS 

300 REM ************ 

310 REM PLAY GAME 
320 REM ************ 

330 PRINT CHRSC125] 

340 N = INTC100 * RNDC0H + 1 

350 T = 

360 PRINT : PRINT "I am thinking of a number 

between 1 " 

370 PRINT "and 100." 

380 PRINT : PRINT "GUESS MY NUMBER"; 

390 TRAP 380 

400 INPUT GUESS 

410T = T + 1 

420 IF GUESS < N THEN PRINT : PRINT "Too low, 

try a higher number.":GOTO 380 

430 IF GUESS > N THEN PRINT : PRINT "Too high, 

try a lower number." : GOTO 380 

440 IF GUESS = N THEN PRINT : PRINT "YOU 

GUESSED MY NUMBER!" 

450 PRINT : PRINT "You guessed the number in " ; T 

; " tries." 

460 PRINT : PRINT "Want to play again (answer 

Y or N)"; 

470 INPUT AS 

480 IF AS = "Y" THEN 330 
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430 IF AS <> "N" THEN 460 
500 PRINT : PRINT "BYE!" 
510 END 
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Joystick Doodler 

With this program and a joystick you can use your Atari as a 
doodler. Young children will really enjoy this program. After 
you insert your joystick and press RETURN the program will 
ask you to input the starting X and Y coordinates. This will 
determine the starting position of your "brush." You will have 
the following options: 1) use the joystick to draw, 2) press the 
SPACE BAR to turn off the "brush" - you can keep track of the 
brush movement by watching the coordinate display at the 
bottom left of the screen, 3) press the FIRE button to erase the 
screen and start over, 4) press RETURN to end the program. 
When you end the program you will have to press the SYSTEM 
RESET key to clear the screen. 

Once you get used to drawing with the joystick you can create 
all kinds of different sketches and designs. The only limit is 
your imagination and patience. 
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10 REM *** JOYSTICK DRAWER *** 

20 REM 

30 DIM ASH) 

40 GRAPHICS 

100 REM ******* 

110 REM SETUP 

120 REM ******* 

130 PRINT CHRSC125] 

140 PRINT /'JOYSTICK DRAWER" 

150 PRINT : PRINT "PLUG YOUR JOYSTICK INTO 

JACK #1." 

160 PRINT "PRESS RETURN WHEN YOU ARE 

READY"; 

170 INPUT AS 

180 PRINT : PRINT "INPUT X COORDINATE [0 - 

318"; 

190 TRAP 180 

200 INPUT X 

210 IF X < OR X > 318 THEN 180 

220 PRINT : PRINT "INPUT Y COORDINATE [0 - 

158)"; 

230 TRAP 220 

240 INPUT Y 

250 IF Y < OR Y > 158 THEN 220 

260 GRAPHICS 8 

270 COLOR 3 

280 PLOT X, Y 

300 REM ******************** 

310 REM DRAWING ROUTINE 

320 REM ******************** 

330 J = STICKC0) 

340 I = STRIGC0] 

350 IF I = THEN GRAPHICS : GOTO 180 

360 KEY = PEEKC764) 

370 POKE 764, 255 

380 IF KEY = 33 THEN 630 

390 IF KEY = 12 THEN PRINT "PROGRAM 

ENDED." : END 
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400 IFX < 1 THEN X = 1 

410 IF X > 318 THEN X = 318 

420 IF Y < 1 THEN Y = 1 

430 IF Y > 158 THEN Y = 158 

440 POKE 755, 

450 POKE 656, 

460 PRINT "X = "; X; " Y = "; Y; " " 

470 IF J = 15 THEN 330 

480 IF J = 14 THEN Y = Y - 1 : GOTO 560 

430 IF J = 6 THEN X = X + 1:Y = Y-1: 

GOTO 560 

500 IF J = 7 THEN X = X + 1 : GOTO 560 

510 IF J = 5 THEN X = X + 1:Y = Y + 1: 

GOTO 560 

520 IF J = 13 THEN Y = Y + 1 : GOTO 560 

530 IF J = 3 THEN X = X-1:Y = Y+1: 

GOTO 560 

540 IF J = 11 THEN X = X - 1 : GOTO 560 

550 IF J = 10 THEN X = X-1:Y = Y-1 

560 DRAWTO X, Y 

570 GOTO 330 

600 REM **************** 

610 REM MOVE PLOTTER 
620 REM **************** 

630 J = STICKC0] 

640 I = STRIGC0) 

650 IF I = THEN GRAPHICS : GOTO 180 

660 KEY = PEEKC764] 

670 POKE 764, 255 

680 IF KEY = 33 THEN PLOT X, Y : GOTO 330 

690 IF KEY = 12 THEN PRINT "PROGRAM 

ENDED." : END 

700 IF X < 1 THEN X = 1 

710 IF X > 318 THEN X = 318 

720 IF Y < 1 THEN Y = 1 

730 IF Y > 158 THEN Y = 1 58 

740 POKE 656, 

750 PRINT "X = "; X; " Y = "; Y; " 
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760 IF J = 


15 THEN 630 


770 IF J = 


14 THEN Y = Y - 1 : GOTO 630 


780 IF J = 


6 THEN X = X + 1:Y = Y-1: 


GOTO 630 




790 IF J = 


7 THEN X = X + 1 : GOTO 630 


800 IF J = 


5 THEN X = X + 1:Y = Y + 1: 


GOTO 630 




810 IF J = 


13 THEN Y = Y + 1 : GOTO 630 


820 IF J = 


9 THEN X = X-1:Y = Y + 1: 


GOTO 630 




830 IF J = 


11 THEN X = X - 1 : GOTO 630 


840 IF J = 


10 THEN X = X-1:Y = Y-1 


GOTO 630 
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Craps 

Here's one for all you high rollers or fantasy high rollers. This 
program is a craps game. You start the game with $100. Play 
continues until you lose all the money or decide to leave the 
'table.' The program is a simple one in that it allows only 'PASS' 
and 'DON'T PASS' bets. Despite this, the game simulates the 
tenseness and fast action of craps rather well. As a program- 
ming exercise, you might want to expand the game to include 
COME, DON'T COME, ODDS, and PROPOSITION bets. Also, 
if you're the type to whom money is no object, you can change 
the value of M in line 40 so you can start the game with more 
than $100. It can be quite thrilling to wager $10,000 on a roll 
of the dice, even if it isn't the real thing. The program can be 
used as practice before your next trip to Las Vegas or Atlantic 
City. 
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10 REM *** CRAPS GAME *** 

20 REM 

30 DIM A$C1J 

40 M = 100 

50 PRINT CHR$C1 25) 

100 REM ************* 

110 REM PLACE ABET 

1 20 REM ************* 

130 IF M = THEN PRINT : PRINT "YOU ARE 

OUT OF MONEY. GAME ENDED." : END 

140 PRINT : PRINT "YOU HAVE $"; M 

150 PRINT : PRINT "HOW WILL YOU BET?" 

160 PRINT : PRINT "1) PASS." 

170 PRINT "2) DON'T PASS." 

180 PRINT "3) LEAVE GAME." 

190 TRAP 160 

200 INPUT B 

210 IF B < 1 OR B > 3 THEN PRINT : PRINT 

"ANSWER 1, 2, OR 3." : GOTO 160 

220 IF B = 3 THEN PRINT : PRINT "YOU LEAVE 

THE TABLE WITH $"; M : END 

230 PRINT : PRINT "HOW MUCH WILL YOU BET"; 

240 TRAP 230 

250 INPUT BET 

260 IF BET > M THEN PRINT : PRINT "YOU 

CANNOT BET THAT MUCH." : GOTO 230 

270 IF BET < THEN PRINT : PRINT "THAT IS 

NOT ALLOWED." : GOTO 230 

300 REM *********** 

310 REM ROLL DICE 

320 REM *********** 

330DIE1 = INT[6*RNDCD) + 1 

340 DIE2 = INTC6 * RNDCD) + 1 

350 ROLL = DIE1 + DIE2 

360 PRINT CHRSC1 25) 

370 PRINT : PRINT "COMPUTER ROLLS A "; ROLL 

380 IF ROLL = 7 AND B = 1 THEN 490 

390 IF ROLL = 7 AND B = 2 THEN 520 
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400 IF ROLL = 11 AND B = 1 THEN 490 

410 IF ROLL = 11 AND B = 2 THEN 520 

420 IF ROLL = 2 AND B = 1 THEN 520 

430 IF ROLL = 2 AND B = 2 THEN 490 

440 IF ROLL = 3 AND B = 1 THEN 520 

450 IF ROLL = 3 AND B = 2 THEN 490 

460 IF ROLL = 12 AND B = 1 THEN 520 

470 IF ROLL = 12 AND B = 2 THEN 550 

480 GOTO 570 

490 PRINT : PRINT "YOU WIN!" 

500 M = M + BET 

510 GOTO 140 

520 PRINT : PRINT "YOU LOSE." 

530 M = M - BET 

540 GOTO 1 30 

550 PRINT : PRINT "PUSH. YOU KEEP YOUR BET' 

560 GOTO 140 

570 PNT = ROLL 

580 PRINT : PRINT "WHEN YOU ARE READY FOR 

NEXT ROLL," 

590 PRINT "PRESS THE RETURN KEY."; 

600 INPUT A$ 

7(71(71 RFM *********************** 

710 REM ROLL TO MAKE POINT 
720 REM **********" )i '" K "" )i " # *" ,, '" fi "" !| '**' ii " i) '* 

730 PRINT CHRSC1 25) 

740 PRINT : PRINT "POINT TO MAKE IS "; PNT 

750 DIE1 = INTC6 * RND(D) + 1 

760 DIE2 = INTC6 * RND(U) + 1 

770 ROLL = DIE1 + DIE 2 

780 PRINT : PRINT "COMPUTER ROLLS A ";ROLL 

790 PRINT 

800 IF ROLL = PNT AND B = 1 THEN 490 

810 IF ROLL = 2 AND B = 2 THEN 490 

820 IF ROLL = 2 AND B = 1 THEN 520 

830 IF ROLL = PNT AND B = 2 THEN 520 

840 IF ROLL = 7 AND B = 1 THEN 520 

850 IF ROLL = 7 AND B = 2 THEN 490 

860 GOTO 580 
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Role-Playing Game Dice Roller 

Those of you who play role-playing games such as Dungeons 
and Dragons may find this program helpful. The game master 
in particular should profit from using this program. Those who 
regularly have to roll 20 dice "fireballs" and the like, will also 
appreciate the time and effort saved. 






When RUN, the program will display a menu that lists the 
various types of dice that are used. You will notice the prompt 
'What type?' directly under the menu. Simply enter the number 
for the type of die you want rolled. For example, you would 
enter '4' if you wanted a 10-sided die rolled. Next, you will be 
asked 'How many rolls?' Simply enter the number of times you 
want the die rolled. The third and final prompt will ask if you 
want the results of the die rolls added together. This is useful 
when you are rolling for weapon damage or rolling for a new 
character. After you answer the three prompts, the computer 
will display the results of each die roll. For a large amount of 
die rolls you will have to press the RETURN key to 'scroll' 
forward. The total of the rolls will be displayed at the end of 
the list. Happy gaming and 'may the dice be with you!' 
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10 REM*** 


ROLE- 


PLAYING DICE ROLLER *** 


20 REM 






30 DIM ASC1] 




40 DIM ROLLH000] 


1 00 REM * 


i>irir -*{■•>, i, ScJ 


ttSS-tf- 


110 REM USER INPUT 


1 20 REM * 


*******< 


*** 


130 PRINT CHR$(125) 


140 FLAG = 


= 




150 PRINT 


PRINT 


"DIE ROLLER" 


160 PRINT 


PRINT 


'1] 4 sided", "2] 6 sided" 


170 PRINT 


PRINT 


'3] 8 sided", "4] 10 sided" 


180 PRINT 


PRINT 


'5] 12 sided", "63 20 sided" 


190 PRINT 


PRINT 


73 100 'sided' (percentile]" 


200 PRINT 


PRINT 


'8] END PROGRAM" 


210 PRINT 


PRINT 


'What type"; 



220 TRAP 210 

230 INPUT TYPE 

240 IF TYPE < 1 OR TYPE > 8 THEN 210 

250 IF TYPE = 8 THEN 820 

260 PRINT : PRINT "How many rolls"; 

270 TRAP 260 

280 INPUT NUM 

290 IF NUM < 1 THEN 260 

300 PRINT : PRINT "Add results (Y or Nl"; 

310 INPUT AS 

320 IF A$ = "Y" THEN FLAG = 1 : GOTO 400 

330 IF A$ <> "N" THEN 300 

400 REM *********** 

410 REM ROLL DICE 

420 REM *********** 

430 ON TYPE GOTO 440, 450, 460, 470, 480, 

490, 500 

440 DIE = 4 : GOTO 510 

450 DIE = 6 : GOTO 510 

460 DIE = 8 : GOTO 510 

470 DIE = 10 : GOTO 510 

480 DIE = 12 : GOTO 510 
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490 DIE = 20 : GOTO 510 

500 DIE = 100 

510 TOTAL = 

520 FOR N = 1 TO NUM 

530 ROLLCN] = INTCDIE * RNDC1) + 1] 

540 IF FLAG = 1 THEN TOTAL = TOTAL 4- 

ROLLCN] 

550 NEXT N 

600 REM **************** 

610 REM PRINT RESULTS 

620 REM **************** 

630 PRINT CHRSC125] 

640 PRINT : PRINT ."RESULTS" 

650 PRINT : PRINT "ROLL #","DIE ROLL" 

660 PRINT 

670 FOR N = 1 TO NUM 

680 PRINT N, ROLLCN] 

690 ROW = PEEKC84] 

700 IF ROW >= 19 THEN 720 

710 GOTO 770 

720 PRINT : PRINT "PRESS RETURN TO 

CONTINUE"; 

730 INPUT AS 

740 PRINT CHRSC1 25] 

750 PRINT "ROLL #", "DIE ROLL" 

760 PRINT 

770 NEXT N 

7B0 IF FLAG = 1 THEN PRINT : PRINT "TOTAL OF 

ROLLS = "; TOTAL 

790 PRINT : PRINT "PRESS RETURN FOR MENU"; 

S00 INPUT A$ 

810 GOTO 130 

820 PRINT : PRINT "PROGRAM ENDED." 

830 END 
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Role-Playing Character Generator 

Here is a program for fantasy/sci-fi role playing gamers. With 
this program you can specify almost any set of characteristics 
you want your characters to have (no, you can't have 'ability 
to ward off a mugger while eating a hot dog and haggling with 
a merchant at 42nd and Eighth Avenue at 1:30 p.m.'). You 
can also specify the range of random numbers (i.e., die rolls) 
for each characteristic. The program will generate an almost 
limitless supply of characters 'rolled' to your specifications. You 
can display the characters on the screen and can also print 
them on your printer. The program also saves your specifica- 
tions on a disk file named CHRSPEC.001 (lines 2030 - 2160 ). 




You are now ready to create that Barbarian horde you've al- 
ways dreamed about. Use them to conquer that kingdom of 
pesky elves to the north! 
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10 REM *** ROLE-PLAYING CHARACTER 

GENERATOR *** 

20 REM 

30 DIM ASH) 

40 DIM DIEH00], SCOREH00] 

50 PRINT CHR$(1 25] 

60 PRINT : PRINT "Do you want instructions (Y or 

NT 

70 INPUT A$ 

80 IF A$ = "N" THEN 890 

90 IF A$ <> "Y" THEN 60 

100 REM *************** 

110 REM INSTRUCTIONS 

1 20 REM *************** 

130 PRINT CHRSC1 25] 

140 PRINT ."INSTRUCTION" 

150 PRINT : PRINT " This program will generate 

char-" 

160 PRINT "acters for you to use with your role" 

170 PRINT "playing games. It can be used for any" 

180 PRINT "role playing system since you your-" 

190 PRINT "self specify the characteristics and" 

200 PRINT "number ranges used. Your specifica-" 

210 PRINT "tions can be saved on disk or tape" 

220 PRINT "for future use." 

230 PRINT : PRINT "PRESS RETURN TO 

CONTINUE"; 

240 INPUT AS 

250 PRINT CHRSC125] 

260 PRINT : PRINT " When you initially create your" 

270 PRINT "specifications the computer will ask" 

280 PRINT "you four questions:" 

290 PRINT : PRINT " 1 ) What is the maximum 

string" 

300 PRINT " length of your characteristics?" 

310 PRINT : PRINT " 2] How many characteristics 

will" 

320 PRINT " the characters have?" 
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PRINT " 33 What are the names of the 



' erent characteristics?" 
PRINT " 4) What are the die roll 

' for each characteristic?" 
PRINT "PRESS RETURN TO 



330 PRINT 

diff-" 

340 PRINT 

350 PRINT 

ranges" 

360 PRINT 

370 PRINT 

CONTINUE"; 

380 INPUT A$ 

390 PRINT CHRSC125] 

400 PRINT : PRINT " What question 1 is asking is" 

410 PRINT "to enter the length of the longest" 

420 PRINT "characteristic name you are using." 

430 PRINT "An example is the name 

INTELLIGENCE." 

440 PRINT "This word is 12 characters long. If" 

450 PRINT "it were the longest name you were" 

460 PRINT "using, your response to question 1" 

470 PRINT "would be to type in '12' and press" 

480 PRINT "the return key." 

490 PRINT : PRINT "PRESS RETURN TO 

CONTINUE"; 

500 INPUT AS 

510 PRINT CHRSC125] 

520 PRINT ; PRINT " Question 2 is simply asking" 

530 PRINT "how many characteristics each char-" 

540 PRINT "acter will have. If you wanted each" 

550 PRINT "character to consist of STRENGTH, 

IN-" 

560 PRINT "TELLIGENCE, and CONSTITUTION, 

you" 

570 PRINT "would respond by entering '3'." 

580 PRINT : PRINT "PRESS RETURN TO 

CONTINUE"; 

590 INPUT AS 

600 PRINT CHRSC125) 

610 PRINT : PRINT " Question 3 will actually be a ' 

620 PRINT "series of prompts that ask you to in-" 
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630 PRINT "put the names of each characteristic" 

640 PRINT "used in creating your characters." 

650 PRINT "Simply enter, one by one, the names" 

660 PRINT "of each characteristic." 

670 PRINT : PRINT "PRESS RETURN TO 

CONTINUE"; 

680 INPUT A$ 

690 PRINT CHRSd 253 

700 PRINT : PRINT " The final specifications you" 

710 PRINT "will be asked to provide are the" 

720 PRINT "number ranges for each character-" 

730 PRINT "istic. Most role playing games use" 

740 PRINT "a range of 3-18 [what this means is" 

750 PRINT "that the sum of three six sided dice" 

760 PRINT "are used to determine the character-" 

770 PRINT "istic]." 

780 PRINT : PRINT " You will be asked to provide" 

790 PRINT "the low and high values for each" 

800 PRINT "characteristic. Using the above ex-" 

810 PRINT "ample, you would enter '3' for the" 

820 PRINT "low value and '18' for the high val-" 

830 PRINT "ue. The computer will ask you for" 

840 PRINT "these values one at a time for each" 

850 PRINT "characteristic." 

860 PRINT : PRINT "YOU ARE NOW READY TO 

BEGIN." 

870 PRINT "PRES RETURN TO START"; 

880 INPUT A$ 

890 PRINT CHRSC125) 

900 PRINT : PRINT "Do you wish to make new 

specifi-" 

910 PRINT "cations (Y or N]"; 

920 INPUT A$ 

930 IF A$ = "Y"THEN 1030 

940 IF AS = "N" THEN 2230 

950 GOTO 890 

1000 REM *****************»#*****###* 

1010 REM SPECIFY CHARACTERISTICS 
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1 020 REM **************************** 

1030 PRINT CHR$(125) 

1040 PRINT : PRINT "What is the string length of 

the" 

1050 PRINT "longest characteristic name"; 

1060 TRAP 1040 

1070 INPUT LENGTH 

1080 IF LENGTH < 1 OR LENGTH > 70 THEN 

1040 

1090 L = LENGTH - 1 

1100 PRINT : PRINT "How many characteristics 

will" 

1110 PRINT "your characters have"; 

11 20 TRAP 1100 

1130 INPUT NUM 

1140 IF NUM < 1 OR NUM > 50 THEN 1100 

1150 DIM CONCATSCLENGTH * NUM], 

CATSCLENGTH] 

1160 DIM LOWCNUM], HIGH(NUM) 

1170 FOR N = 1 TO LENGTH * NUM 

1180 CONCATSCN.N] = " " 

1190 NEXTN 

1200 PRINT CHR$[125) 

1210 PRINT : PRINT "Input the name of each 

character-" 

1220 PRINT "istic." 

1230 PRINT : PRINT "#","NAME" 

1240 J = 1 

1250 FOR N = 1 TO NUM 

1260 PRINT N, 

1270 INPUT CATS 

1280 IF LEN(CATS) > LENGTH THEN 1260 

1290 CONCAT$U,J + L] = CATS 

1300 J = J + LENGTH 

1310 NEXT N 

1400 REM *******#****#********* 

1410 REM VERIFY INFORMATION 

1 4P(7) RFM *tt^*tttttt#tt#tt#tt-H--H--}HHHHfr-M--H- 
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1430 PRINT CHR$(125) 

1440 PRINT : PRINT "#", "NAME" 

1450 PRINT 

14B0 J = 1 

1470 FOR N = 1 TO NUM 

1480 PRINT N, CONCATSU, J + U 

1490 J = J + LENGTH 

1500 NEXTN 

1510 PRINT : PRINT "Is the above information 

correct CY" 

1520 PRINT "or N)"; 

1530 INPUT AS 

1540 IF A$ = "Y"THEN 1630 

1550 IF A$ <> "N" THEN 1510 

1560 GOTO 1200 

1 600 REM *«***»****«*«******«*** 

1610 REM INPUT VALUE RANGES 
1 620 REM **#********##*##•»#*«*#■» 

1630 PRINT CHRSC125] 

1640 PRINT : PRINT "Input the low and high values" 

1650 PRINT "for each characteristic." 

1660 PRINT 

1670 J = 1 

1680 FOR N = 1 TO NUM 

1690 PRINT CONCATSU, J + U, "LOW"; 

1700 TRAP 1690 

1710 INPUT LOW 

1720 PRINT CONCATSU, J + L), "HIGH"; 

1730 TRAP 1720 

1740 INPUT HIGH 

1750 LOW(N) = LOW 

1760 HIGHCN] = HIGH 

1770 J = J + LENGTH 

1780 NEXTN 

1 800 REM *******#***#*■**** 

1810 REM VERIFY RANGES 

1 820 REM *******- fi -******' B -* s 

1830 PRINT CHRSC1 25) 
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1840 J = 1 

1850 FOR N = 1 TO NUM 

1860 PRINT CONCATSU, J + U. LOWCN), 

HIGHCN) 

1870 J = J + LENGTH 

1880 NEXTN 

1890 PRINT : PRINT "Is this information correct CY 

or N]"; 

1900 INPUT AS 

1910 IF AS = "Y" THEN 1940 

1920 IF A$ = "N" THEN 1630 

1930 GOTO 1890 

1940 PRINT : PRINT "Do you wish to store your 

specifi-" 

1950 PRINT "cations on disk (Y or N)"; 

1960 INPUT AS 

1970 IF AS = "N" THEN 2530 

1980 IF AS <> "Y" THEN 1940 

2000 REM ****************#****-**#*#*** 

2010 REM CREATE SPECIFICATION FILE 

2020 REM ****»««*«««**««««************ 

2030 PRINT : PRINT "INSERT DATA DISK. PRESS 

RETURN"; 

2040 INPUT AS 

2050 TRAP 2030 

2060 OPEN #1, 8, 0, "D:CHRSPEC001" 

2070 PRINT #1; NUM 

2080 PRINT #1; LENGTH 

2090 J = 1 

2100 FOR N = 1 TO NUM 

2110 PRINT #1; CONCATSU, J + L] 

2120 PRINT #1; LOWCN) 

2130 PRINT #1; HIGHCN) 

2140 J = J + LENGTH 

2150 NEXT N 

2160 CLOSE #1 

2170 GOTO 2530 
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2200 REM *************************** 

2210 REM INPUT SPECIFICATION FILE 
2220 REM ****#******#*##**#*##***#*#* 

2230 PRINT : PRINT "INSERT DATA DISK. PRESS 

RETURN"; 

2240 INPUT AS 

2250 TRAP 2230 

2260 OPEN #1, 4, 0, "D:CHRSPEC001" 

2270 INPUT #1; NUM 

2280 DIM LOW(NUM), HIGFKNUM] 

2290 INPUT #1; LENGTH 

2300 L = LENGTH - 1 

2310 DIM CONCATSCNUM * LENGTH], 

ELEMSCNUM * LENGTH] 

2320 J = 1 

2330 FOR N = 1 TO NUM 

2340 INPUT #1; ELEM$ 

2350 CONCATSU, J + L] = ELEM$ 

2360 J = J + LENGTH 

2370 INPUT #1; LOW 

2380 LOWtN) = LOW 

2390 INPUT #1; HIGH 

2400 HIGHCN) = HIGH 

2410 NEXT N 

2420 CLOSE #1 

2500 REM ************************** 

2510 REM GENERATE CHARACTERS 

2520 REM ************************** 

2530 PRINT CHRSC125) 

2540 PRINT : PRINT "How many characters do you 

want"; 

2550 TRAP 2540 

2560 INPUT AMOUNT 

2570 IF AMOUNT < 1 THEN PRINT : PRINT 

"PROGRAM ENDED." : END 

2580 PRINT : PRINT " 13 VIEW CHARACTERS ON 

SCREEN" 

2590 PRINT : PRINT " 2) HARD COPY PRINT OF 

CHARACTERS" 
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2600 PRINT : PRINT " 3] BOTH" 

2610 PRINT : PRINT "What option do you want"; 

2620 TRAP 2610 

2630 INPUT OPTION 

2640 IF OPTION < 1 OR OPTION > 3 THEN 2610 

2650 ON OPTION GOTO 2660, 2670, 2680 

2660 FLAG = 1 : GOTO 2710 

2670 FLAG = 2 

2680 PRINT : PRINT "TURN ON PRINTER. ALIGN 

PAPER." 

2690 PRINT "PRESS RETURN TO CONTINUE"; 

2700 INPUT A$ 

2710 FOR N = 1 TO NUM 

2720 DIECN) = INT(HIGHCN) / LOW(N)) 

2730 NEXT N 

2740 FOR N = 1 TO NUM 

2750 SCORECN] = 

2760 FOR TIMES = 1 TO LOW(N) 

2770 ROLL = INTCDIECN] * RNDC0]] + 1 

2780 SCORECN] = SCOREfN] + ROLL 

2790 NEXT TIMES 

2800 NEXT N 

2810 COUNT = COUNT + 1 

2900 REM ************************** 

2910 REM PRINT OUT CHARACTERS 
2920 REM ************************** 

2930 IF FLAG = 1 THEN 3130 

2940 J = 1 

2950 LPRINT "CHARACTER #"; COUNT 

2960 FOR N = 1 TO NUM 

2970 LPRINT 

2980 LPRINT CONCAT$(J, J + L), SCORECN] 

2990 LINES = LINES + 1 

3000 J = J + LENGTH 

3010 NEXT N 

3020 FOR X = 1 TO 62 - (3 + LINES] 

3030 LPRINT 

3040 NEXT X 
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3050 IF COUNT = AMOUNT AND FLAG = 2 

THEN 3250 

3060 IF FLAG = 2 THEN 2710 

3100 REM *****' |i " s ' |( " !! ' ft **" ,t ' ft ' ,f *' ft *' 

3120 REM SCREEN OUTPUT 
3130 REM ** #s **********tt**' tt 

3130 J = 1 

3140 PRINT CHRSC1 25] 

3150 PRINT "CHARACTER #"; COUNT 

3160 PRINT 

3170 FOR N = 1 TO NUM 

3180 PRINT CONCATSU, J + U, SCORECN) 

3190 J = J + LENGTH 

3200 NEXT N 

3210 IF COUNT = AMOUNT THEN 3250 

3220 PRINT : PRINT "PRESS RETURN FOR NEXT 

CHARACTER"; 

3230 INPUT AS 

3240 GOTO 2710 

3250 PRINT : PRINT "CHARACTERS GENERATED 

PROGRAM ENDED." 

3260 END 
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Section 4 



Programs for Business 



interest calculator 
Profit calculator 
Appointment Log 
Expense Log 
Auto Trip Log 
inventory File 
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BUSINESS APPLICATIONS 

The programs in this section focus on using your Atari to help 
you conduct your business activities. The main feature of most 
business programs is the creation and maintenance of data 
files. Of the programs in this section, the last four set up data 
files. The first two programs will make calculations but do not 
create files. The Interest and Profit programs will calculate 
interest earnings and sales profit. The next program is an Ap- 
pointment log to keep track of appointments. The Expense log 
lets you organize your records without a lot of messy paper- 
work. Also included is a log to list your Auto Trips. Finally, 
there is a program for you to keep track of and update Inventory. 
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Interest Calculator 

This program will calculate interest earnings. It can be used 
to figure interest payments on loans, bond dividends, and sav- 
ings accounts. You only have to answer three questions: 1) what 
the principal amount is, 2) what the yearly interest rate is, 
and 3) the number of years you are allowing the interest to 
accumulate. If your principal has a maturity period of less than 
one year, you can still use the program. When the computer 
asks you how many 'years,' just respond by entering the number 
of maturity periods you are allowing the principal to mature. 
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10 REM *** INTEREST CALCULATOR *** 

20 REM 

30 DIM A$C1) 

100 REM ************ 

110 REM USER INPUT 

1 20 REM ************ 

1 30 T = 

140 PRINT CHRSC1 25] 

150 PRINT : PRINT "How much is the principal" 

160 PRINT "Center only a number]"; 

170 TRAP 150 

180 INPUT P 

1 90 T = P 

200 PRINT : PRINT "What is the yearly interest 

rate?" 

210 PRINT "Center a number only]"; 

220 TRAP 200 

230 INPUT I 

240 PRINT : PRINT "How many years are you 

allowing the" 

250 PRINT "account to mature"; 

260 TRAP 240 

270 INPUT Y 

300 REM*********************************** 

310 REM CALCULATE INTEREST EARNINGS 

320 REM*********************************** 

330 PRINT CHRSC1 25] 

340 PRINT : PRINT "YEARV'AMOUNT" 

350 FOR L = 1 TO Y 

360 T = T + INT C100 * CT * (1 + I / 100] - T) + 

0.5) /100 

370 PRINT L,"$";T 

380 ROW = PEEKC84] 

390 IF ROW >= 20 THEN PRINT : PRINT "PRESS 

RETURN TO CONTINUE": INPUT A$ 

400 IF ROW >= 20 THEN PRINT CHRSC125] 

410 NEXT L 

420 PRINT : PRINT "Do you wish to run the program 

again?" 
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430 PRINT "[Answer Y or N)"; 

440 TRAP 430 

450 INPUT AS 

4B0 IF AS = "Y"THEN 130 

470 IF AS <> "N" THEN 430 

480 PRINT CHRSC125) 

490 PRINT : PRINT "Program ended. 

500 END 
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Profit Calculator 

This program can help figure out how much profit you make 
on sales of your products. The program also calculates how 
much a person receiving commission on sales will receive. The 
program will keep track of the accumulated profit from all sales 
of the product. This is handy because most businesses give 
different discounts for different sales. The program uses the 
following parameters to determine the profit: 

1) The cost of producing a single unit (this includes the 
cost of labor). 

2) The list price of the product. 

3) The volume being sold. 

4) The discount percentage offered the distributor. 

5) The percentage given as commission. 
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When you RUN the program you will be asked to input the 
values for each of the above parameters. You can change the 
values for each particular sale. One change in the program you 
might want to make is to change the word 'inventor' to 'sales- 
man.' The word appears in lines 1070 and 1120. 

10 REM *** PROFIT AND COMMISSION 

CALCULATOR *** 

20 REM 

30 DIM A$(1] 

40 PRINT CHRSC1 25] 

45 PRINT "PROFIT CALCULATOR" 

50 PRINT : PRINT "Do you want instructions CY or 

Nl"; 

60 INPUT AS 

70 IF AS = "N" THEN 530 

80 IF AS <> "Y" THEN 50 

100 REM *************** 

110 REM INSTRUCTIONS 

120 REM *************** 

130 PRINT CHRSC125) 

140 PRINT : PRINT, "INSTRUCTIONS" 

150 PRINT : PRINT " This program will calculate 

the" 

160 PRINT "profit a manufacturer realizes on a " 

170 PRINT "product. The computer will ask you to" 

180 PRINT "input values for five different vari-" 

190 PRINT "ables. The variables (and how to re-" 

200 PRINT "spond to them] are: 1] Cost to pro-" 

210 PRINT "duce [include labor] - input amount" 

220 PRINT "Comit dollar sign] 2] List price -" 

230 PRINT "input price Comit $] 3] Volume -" 

240 PRINT "input number of units sold 4] Dis-" 

250 PRINT "count - input discount percentage" 

260 PRINT "given distributor 5] Commission -" 

270 PRINT "input percentage of gross profit" 

280 PRINT "given as commission. To input a" 

290 PRINT "value, type the value and press" 
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300 PRINT "RETURN. Do not input commas or 

dollar" 

310 PRINT "signs." 

320 PRINT : PRINT "PRESS THE RETURN KEY 

WHEN READY FOR" 

330 PRINT "REMAINDER"; 

340 INPUT A$ 

350 PRINT CHRSC1 25] 

360 PRINT : PRINT " After you input the values for" 
"these variables the computer will" 
"calculate the net profit of the man-" 
'ufacturer and the commission due the" 
"inventor." 

PRINT " You are now ready to run the" 
"program. Press the RETURN key when" 
"you want to start." 



370 PRINT 

380 PRINT 

390 PRINT 

400 PRINT 

410 PRINT 

420 PRINT 

430 PRINT 

440 INPUT AS 

500 REM ************ 

510 REM USER INPUT 
520 REM ************ 

530 TPRDF1 = 

540 TPROF2 = 

550 PRINT CHRSC125) 

560 PRINT : PRINT "WHAT IS THE PRODUCTION 

COST PER UNIT" 

570 PRINT "(INCLUDE LABOR COSTS]"; 

580 TRAP 570 

590 INPUT COST 

600 PRINT ; PRINT 

THE PRO-" 

610 PRINT "DUCT"; 

620 TRAP 600 

630 INPUT LIST 

640 PRINT : PRINT 

BEING SOLD"; 

650 TRAP 640 

660 INPUT VOL 

670 PRINT : PRINT 



'WHAT IS THE LIST PRICE OF 



HOW MANY UNITS ARE 



WHAT DISCOUNT 
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PERCENTAGE IS BEING" 

680 PRINT "GIVEN THE DISTRIBUTOR"; 

690 TRAP 670 

700 INPUT DIS 

710 PRINT : PRINT "WHAT PERCENTAGE OF 

PROFITS ARE BEING" 

720 PRINT "GIVEN AS COMMISSIONS"; 

730 TRAP 710 

740 INPUT COMM 

800 REM **HHHMHHHHHHHHHHHHHHf 

810 REM CALCULATE PROFIT 
820 REM ***ihhhhhhhhhhhhhhhhi 

830 REM 

840 REM ** GROSS PROFIT ** 

850 GPROF = VOL * [[[100 - DIS] / 100 * LIST] 

- COST] 

860 REM ** NET PROFIT ** 

870 NPROF = GPROF * [100 - COMM] / 100 

880 TPROF1 = TPROF1 + NPROF 

890 REM ** COMMISSION ** 

900 IPROF = GPROF * COMM / 100 

910TPROF2 = TPROF2 + IPROF 

1000 REM ************* 

1010 REM PRINT PROFIT 

1020 REM ************* 

1030 PRINT CHRSH25] 

1040 PRINT : PRINT "Manufacturer's profit on sale" 

1050 PRINT "is $";NPROF 

1060 IF COMM = THEN 1090 

1070 PRINT : PRINT "Inventor's profit on sale" 

1080 PRINT "is $";IPROF 

1090 PRINT : PRINT "Manufacturer's total profit" 

1100 PRINT "is $";TPROF1 

1110 IF TPROF2 = THEN 1140 

1120 PRINT ; PRINT "Inventor's total profit" 

1130 PRINT "is $";TPR0F2 

1 140 PRINT : PRINT "Do you wish to make another 

sale" 
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1150 PRINT "[answer Y or NT; 

1160 INPUT AS 

1170 IF AS = "Y" THEN PRINT CHRSC1 25):GOTO 

640 

1180 IF AS <> "N" THEN 1140 

1190 PRINT : PRINT "Do you wish to run the 

program" 

1200 PRINT "again (answer Y or N)"; 

1210 INPUT AS 

1220 IF AS = "Y" THEN 530 

1230 IF A$ <> "N" THEN 1190 

1240 PRINT : PRINT "PROGRAM ENDED." 

1250 END 
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Appointment Log 



Here is a program to help you keep track of your appointments. 
The program stores your appointments in a file named AP- 
POINT.DAT. When you run the program you have the option 
to add, change, or delete appointments from the file. The pro- 
gram can also sort your appointments so they will appear in 
chronological order. 
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There are a few things you need to know about making entries 
in the log. When entering the date, use the format MMDD 
where MM is the month from 01 to 12 and DD is the day from 
01 to 31. When you enter the time, use a 24 hour clock (0001 — 
2400.) Your entries for date and time must be four characters 
long. This is so the appointments can be sorted properly. Also, 
your description of the appointment must not exceed 30 char- 
acters (this allows for clear viewing on a 40 column screen.) If 
you have an 80 column cartridge and you want to have more 
room for your descriptions, you can make the following changes: 



137 



30 DIM ASCB3, DATESC4J, TIMESC4), APPSC70] 

40 DIM ELEMSC78], FILESCK3O00), REC$(70] 

1100 IF LENCAPP$] > 70 THEN PRINT : PRINT 

"TOO LONG" : GOTO 870 

1900 FOR J = 1 TO COUNT* 78 : FILESU, J] 

" : NEXT J 

1990 FILESCI + 8, I + 77] = APP$ 

2000 I = I + 78 

2020 STRING = [COUNT -1] * 78 

2040 FOR P = 1 TO STRING - 77 STEP 78 

2050 PL = P + 77 

2060 PLEN = P + 78 

2070 PLEN1 = P + 78 

2180 APP$ = FILESCI + 8, I + 77] 

2190 I = I + 78 

10 REM *** APPOINTMENT LOG *** 

20 REM 

30 DIM A$(6], BS(U DATE$(4), TIMESC4), 

APPSC30] 

40 DIM ELEM$(38), FILE$[5000), REC$[30] 

100 REM ************ 

110 REM USER INPUT 

1 20 REM ************ 

130 PRINT CHRSC125] 

140 PRINT , "APPOINTMENT LOG" 

150 PRINT : PRINT "INSERT DATA DISK." 

160 PRINT : PRINT "PRESS RETURN WHEN 

READY"; 

170 INPUT A$ 

180 CLOSE #1 

190 CLOSE #2 

200 TRAP 400 

210 OPEN #1, 4, 0, "D:APPOINT.DAT" 

220 OPEN #2, 8, 0, "D:APPOINTTEM" 

230 PRINT CHRSC125] 



240 PRINT 
250 PRINT 
260 PRINT 



PRINT " 1] ADD APPOINTMENT" 
PRINT " 2] UPDATE APPOINTMENT" 
PRINT " 3] REVIEW LOG" 
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270 PRINT : PRINT " 4) SORT LOG" 

280 PRINT : PRINT " 5) LEAVE PROGRAM" 

290 PRINT : PRINT "SELECT OPTION"; 

300 TRAP 290 

310 INPUT OPTION 

320 IF OPTION < 1 OR OPTION > 5 THEN 290 

330 ON OPTION GOTO 700, 1200, 1500, 1810, 

340 

340 CLOSE #1 

350 CLOSE #2 

360 PRINT : PRINT "FILES CLOSED, PROGRAM 

ENDED." 

370 END 

400 REM ***************** 

410 REM FILE NOT FOUND 
420 REM ***************** 

430 PRINT CHRSC253) 

440 PRINT : PRINT "FILE NOT FOUND ON THIS 

DISK." 

450 PRINT : PRINT "Either insert proper disk and 

enter" 

460 PRINT '"NEW or enter 'CREATE' to create a" 

470 PRINT "new file on this disk"; 

480 INPUT A$ 

490 IF A$ = "NEW" THEN 190 

500 IF A$ <> "CREATE" THEN 450 

600 REM ****************** 

610 REM CREATE NEW FILE 

620 REM ****************** 

630 CLOSE #1 

640 OPEN #1, 8, 0, "D:APPOINT.DAT" 

650 PRINT #1; "END" 

660 CLOSE #1 

670 GOTO 180 

700 REM ********************** 

710 REM TRANSFER RECORDS 
720 REM ********************** 

730 COUNT = 
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740 INPUT #1; DATES 

750 IF DATES = "END" THEN 900 

760 PRINT #2; DATES 

770 INPUT #1; TIMES 

780 PRINT #2; TIMES 

790 INPUT #1; APPS 

800 PRINT #2; APPS 

810 COUNT = COUNT + 1 

820 GOTO 740 

900 REM **" !i "" !i "' !t ***' ii '*' ,( -*" ii " |, - |< '*' it *** 

910 REM ADD APPOINTMENT 
920 REM ^******" iH! "" iHi "#" ii '*##*#' if # 

930 PRINT CHRSC1 25] 

940 IF OPTION = 1 THEN PRINT "ADD 

APPOINTMENT" 

950 IF OPTION = 2 THEN PRINT "CHANGE 

APPOINTMENT" : GOTO 970 

960 PRINT : PRINT "ENTER 'END' WHEN DONE. 

970 PRINT: PRINT "DATE. . .."; 

980 INPUT DATES 

990 IF DATES = "END" THEN 2400 

1000 IF LEN(DATE$] <> 4 THEN 970 

1010 IF VAL(DATE$]< 101 THEN 970 

1020 IF VALIDATES] > 1231 THEN 970 

1030 PRINT: PRINT "TIME. . .."; 

1040 INPUT TIMES 

1050 IF LENCTIMES] <> 4 THEN 1030 

1060 IF VALCTIMES] < 1 THEN 1030 

1070 IF VAL(TIMES) > 2400 THEN 1030 

1080 PRINT : PRINT "APPOINTMENT. . .."; 

1090 INPUT APPS 

1100 IF LEN(APPS) > 30 THEN PRINT : PRINT 

"TOO LONG." : GOTO 1080 

1110 PRINT : PRINT" 1] ADD" 

1 1 20 PRINT : PRINT " 2] CHANGE" 

1130 PRINT : PRINT "SELECT OPTION"; 

1140 TRAP 1130 

1150 INPUT 0PT2 
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1 1 60 IF 0PT2 < 1 OR OPT2 > 2 THEN 1 1 30 

1170 IF OPT2 = 2 THEN 900 

1180 IF OPTION = 1 THEN COUNT = COUNT + 1 

1190 GOTO 2300 

1200 REM ***************** 

1210 REM READ RECORDS 

1 220 REM ***************** 

1230 COUNT = 

1240 INPUT #1; DATES 

1250 IF DATES = "END" THEN 2400 

1260 INPUT #1; TIMES 

1270 INPUT #1; APPS 

1280 COUNT = COUNT + 1 

1290 PRINT CHRSH25) 

1300 PRINT : PRINT "DATE. . .."; DATES 

1310 PRINT : PRINT "TIME. . .."; TIMES 

1320 PRINT : PRINT "APPOINTMENT. . .."; APPS 

1330 PRINT : PRINT " 1] KEEP" 

1340 PRINT : PRINT " 2) CHANGE" 

1350 PRINT : PRINT " 3] DELETE" 

1360 PRINT : PRINT "SELECT OPTION"; 

1370 TRAP 1360 

1380 INPUT OPT2 

1390 IF OPT 2 < 1 OR OPT2 > 3 THEN 1360 

1400 IF 0PT2 = 3 THEN COUNT = COUNT -1 

1410 ON OPT2 GOTO 2300, 900, 1200 

1 500 REM ************** 

1510 REM REVIEW LOG 

1 520 REM ************** 

1530 PRINT CHRSH25) 

1540 PRINT "Enter the date you want to review or" 

1550 PRINT "enter ALL to review the entire log"; 

1560 INPUT AS 

1570 IF AS = "ALL" THEN 1600 

1580 IF VALtASJ < 101 THEN 1540 

1590 IF VALtAS) > 1231 THEN 1540 

1600 PRINT CHRSC1 253 

1610 PRINT : PRINT "DATE "; "TIME "; 
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"APPOINTMENT" 

1620 PRINT 

1630 INPUT #1; DATES 

1640 IF DATES = "END" THEN 1730 

1650 INPUT #1; TIMES 

1660 INPUT #1; APPS 

1 670 IF AS = "ALL" THEN PRINT DATES; " "; 

TIMES; " "; APPS 

1680 IF AS = DATES THEN PRINT DATES; " "; 

TIMES " "; APPS 

1690 ROW = PEEKC84] 

1700 IF ROW = 20 THEN PRINT : PRINT "PRESS 

RETURN TO CONTINUE"; : INPUT B$ 

1710 IF ROW = 20 THEN 1600 

1720 GOTO 1630 

1730 PRINT : PRINT "PRESS RETURN WHEN 

FINISHED"; 

1740 INPUT AS 

1750 GOTO 2400 

1800 REM ********** 

1810 REM SORT LOG 

1 820 REM ********** 

1830 INPUT #1; RECS 

1840 IF RECS = "END" THEN 1860 

1850 GOTO 1830 

1860 INPUT #1; COUNT 

1870 CLOSE #1 

1880 IF COUNT < 2 THEN PRINT : PRINT "SORT 

NOT REQUIRED." : GOTO 180 

1890 PRINT : PRINT "STANDBY WHILE FILE IS 

SORTED." 

1900 FOR J = 1 TO COUNT * 38 : FILESU, J] = ' 

: NEXT J 

1910 I = 1 

1920 OPEN #1. 4, 0, "D:APPOINTDAT" 

1930 INPUT #1; DATES 

1940 IF DATES = "END" THEN 2020 

1950 FILESCI, I + 3) = DATES 
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1360 INPUT #1; TIMES 

1370 FILESCI + 4, I + 7) = TIMES 

1380 INPUT #1; APPS 

1330 FILESCI + 8, I + 37] = APPS 

2000 I = I + 38 

2010 GOTO 1330 

2020 STRING = [COUNT - 1) * 38 

2030 FOR N = 1 TO COUNT - 1 

2040 FOR P = 1 TO STRING - 37 STEP 38 

2050 PL = P + 37 

2060 PLEN = P + 38 

2070 PLEN1 = P + 75 

2080 IF FILESCR PU <= FILESCPLEN, PLEN1) 

THEN 2120 

2030 ELEMS = FILESCR PU 

2100 FILESCR PL) = FILESCPLEN, PLEN1) 

2110 FILESCPLEN, PLEN1) = ELEMS 

2120 NEXT P 

2130 NEXTN 

2140 | = 1 : X = 1 

21 50 IF X > COUNT THEN 2400 

2160 DATES = FILESCI, I + 3) 

2170 TIMES = FILESCI + 4, I + 7) 

2180 APPS = FILESCI + 8, I + 37) 

2130 I = I + 38 

2200 X = X + 1 

2300 REM ********************* 

2310 REM WRITE TO NEW FILE 

2320 REM ********************* 

2330 PRINT #2; DATES 

2340 PRINT #2; TIMES 

2350 PRINT #2; APPS 

2360 ON OPTION GOTO 330, 1240, 1500, 2150, 

340 

2400 REM ************* 

2410 REM CLOSE FILES 

2420 REM ************* 

2430 PRINT : PRINT "STANDBY WHILE FILES ARE 

CLOSED." 
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2440 PRINT #2; "END" 

2450 PRINT #2; COUNT 

24B0 CLOSE #1 

2470 CLOSE #2 

2480 IF OPTION = 3 THEN 2510 

2490 XIO 33, #1, 0, 0, "D:APPOINT.DAT" 

2500 XIO 32, #1, 0, 0, "D:APPOINTTEM, 

APPOINT.DAT" 

2510 GOTO 210 
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Expense Log 

Here is a program you can use to keep track of your expenses for 
the year. The program creates a file named TAX EXP. 'XXX' 
that stores the information. The 'XXX' is actually the last three 
digits of the year the file covers. This allows you to maintain 
a separate file for each year. The routine in lines 940 - 1150 
creates new files. The program also gives you the option of 
printing out the file. This is useful in any number of situations. 
Lines 2630 - 2770 output the log to the printer. If you don't 
plan on using a printer you can delete lines 2500 - 2570 and 
2600 - 2850. To shorten the boot-up time you can also delete 
the instructions. 
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10 REM *** EXPENSE ITEMS *** 

20 REM 

30 DIM A$CU CAT$(3], DATESC8], DESSC35] 

40 DIM CAT1$(6), DATE1$C11), DES1SC38] 

50 DIM COST1$(10), COST2$[10), COST3$[10), 

PADSC7] 

60 DIM YEARSC4], EXTSC3], FILESC12] 

70 FLAG = 

80 PRINT CHR$(1 25] 

90 PRINT ."EXPENSE LOG" 

100 PRINT : PRINT "Do you want the instructions?" 

110 PRINT "Answer Y or N"; 

120 INPUT A$ 

130 IF A$ = "N"THEN 930 

140 IF AS <> "Y"THEN 110 

200 REM ********************** 

210 REM USER INSTRUCTIONS 
?20 REM ********************** 

230 PRINT CHR$[1 25] 
240 PRINT ."INSTRUCTIONS" 
250 PRINT : PRINT " When you run the program the 
com-" 

260 PRINT "puter will display, one at a time," 
270 PRINT "the following headings: 11DATE 25CAT." 
280 PRINT "35DESCRIPTION 4JEXPENSE." 
290 PRINT : PRINT " You will notice that the 
cursor" 

300 PRINT "is located beside the DATE heading" 
310 PRINT "and that a question mark [prompt] is" 
320 PRINT "present. At this point, type in" 
330 PRINT "the date the expense was incurred." 
340 PRINT "The entry you make for the date" 
350 PRINT "cannot exceed eight characters. After 
you" 

360 PRINT "type the date you must press the RE-" 
370 PRINT "TURN key. At this point, you will no-" 
380 PRINT "tice the prompt move to a position" 
390 PRINT "beside the CAT. heading." 
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400 PRINT : PRINT "PRESS THE RETURN KEY 

WHEN READY" 

410 PRINT "FOR MORE INSTRUCTIONS"; 

420 INPUT AS 

430 PRINT CHRSC125) 

440 PRINT : PRINT " The CAT. heading is where you 

en-" 

450 PRINT "ter the type of expense incurred. En-" 

460 PRINT "ter one of the following codes for" 

the CAT. heading:" 

PRINT " CODE", ."DEFINITION" 

PRINT " BUS", ."Business expense" 

ED U",, "Educational" 

INT", ."Interest payments 

MED", ."Uninsured medical" 

",, "expenses" 

PRINT "You can use your own codes 



470 PRINT 
480 PRINT 
490 PRINT 
500 PRINT 
510 PRINT 
520 PRINT 
530 PRINT 
540 PRINT 
for" 

550 PRINT 
560 PRINT 
570 PRINT 



"the CAT heading, as long as they do" 

"not exceed 3 characters." 

: PRINT "PRESS THE RETURN KEY 

WHEN READY FOR" 

580 PRINT "MORE INSTRUCTIONS"; 

590 INPUT AS 

600 PRINT CHR$(125) 

610 PRINT : PRINT " Next the cursor will be posit- 

620 PRINT "ioned beside the DESCRIPTION 

heading." 

630 PRINT 

640 PRINT 

650 PRINT 

660 PRINT 

670 PRINT 

680 PRINT 

690 PRINT 

700 PRINT 

710 PRINT 



'At this point, enter a brief de-" 
'scription of the expense. For exam-" 
'pie, you might enter 'MEDICATION'" 
'or 'SCHOOL BOOKS.' The only limi-" 
'tation is that each entry be no" 
'more than 35 characters in length." 
'Remember, to enter an item you type' 
'it and then press the RETURN key." 
PRINT "PRESS THE RETURN KEY 



WHEN READY' 
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720 PRINT "FOR MORE INSTRUCTIONS"; 

730 INPUT A$ 

740 PRINT CHR$(1 25) 

750 PRINT : PRINT " The final heading you will make" 

760 PRINT "an entry for is the EXPENSE heading." 

770 PRINT "After you make your entry for the DE-" 

780 PRINT "SCRIPTION heading the prompt will ap-" 

790 PRINT "pear beside the EXPENSE heading. At" 

800 PRINT "this point, type the amount of the" 

810 PRINT "expense (do not type a dollar sign)" 

820 PRINT "and press the RETURN key." 

830 PRINT : PRINT " You are now ready to run the 

pro-" 

840 PRINT "gram. Be sure to check your entries" 

850 PRINT "for accuracy before entering them." 

860 PRINT : PRINT "PRESS THE RETURN KEY 

WHEN YOU ARE" 

870 PRINT "READY TO RUN THE PROGRAM"; 

880 INPUT AS 

900 REM ************* 

910 REM USER INPUT 

920 REM ************* 

930 PRINT CHRSC1 25) 

940 PRINT : PRINT "Start a new file (Y or N)"; 

950 INPUT A$ 

960 IF A$ = "N"THEN 1030 

970 IF AS <> "Y" THEN 940 

980 PRINT : PRINT "What year will the file cover"; 

990 TRAP 980 

1000 INPUT Y 

1010 X = 1 

1020 GOTO 1070 

1030 PRINT : PRINT "What year do you want to 

access"; 

1040 TRAP 1030 

1050 INPUT Y 

1060 X = 2 

1070 YEARS = STR$(Y) 
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1080 IF LENCYEARS) <> 4 THEN ON X GOTO 

980, 1030 

1090 EXT$ = YEAR$(2, 4) 

1100 FILESC1, 9] = "DTAXEXP." 

1110 FILESC10, 123 = EXT$ 

1120 ON X GOTO 1130, 1170 

1130 OPEN #1, 8, 0, FILES 

1140 PRINT #1, Y 

1150 CLOSE #1 

1160 GOTO 1230 

1170 PRINT CHRSC253) : PRINT "INSERT DATA 

DISK. PRESS RETURN"; 

1180 INPUT AS 

11 90 TRAP 1170 

1200 OPEN #1, 4, 0, FILES 

1210 INPUT #1; Y 

1220 CLOSE #1 

1230 PRINT : PRINT "Do you wish to make an 

entry" 

1240 PRINT "[answer Y or N)" 

1250 INPUT AS 

1260 IF AS = "N" THEN FLAG = 3 : GOTO 2040 

1270 IF AS <> "Y" THEN 1230 

1280 PRINT CHRSC125] 

1290 PRINT : PRINT "DATE "; 

1300 INPUT DATES 

1310 PRINT: PRINT "CAT "; 

1320 INPUT CATS 

1330 PRINT: PRINT "DESCRIPTION "; 

1340 INPUT DESS 

1350 PRINT : PRINT "EXPENSE "; 

1360 TRAP 1350 

1370 INPUT E 

1380 IF E < 0.01 THEN 1350 

1400 REM *************** 

1410 REM FORMAT DATA 
1420 REM *************** 

1430 FOR I = 1 TO 11 
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1440 D ATE 1$(l, I) = "" 

1450 NEXT I 

1460 DATE1SC1, B) = DATES 

1470 FOR I = 1 TO 6 

1480 CAT1SCI, I) = " " 

1490 NEXT I 

1500 CAT1$[1, 31 = CATS 

1510 FOR I = 1 TO 38 

1520 DES1SCI. I) = " " 

1530 NEXT I 

1540 DES1SC1, 35] = DES$ 

1550 E = E + 1.0E - 03 

1560 COST1S = " " 

1570 COST2S = " " 

1580 COST3S = " " 

1590 COST1S = STRSCE) 

1600 L = LENCCOST1S) 

1610 C0ST2$(1, 1] = "$" 

1620 COST2SC2, L) = COST1SC1, L - 1] 

1630 L = LENCCOST2S] 

1640 IF L = 10 THEN COST3S = COST2S : GOTO 

1730 

1650 FOR I = 1 TO 10 - L 

1660 PADSCI, I) = " " 

1670 NEXT I 

1680 COST3SC1, 10 - L) = PADS 

1690 COST3$(11 - L, 10] = COST2S 

1 700 REM *************** 

1710 REM DISPLAY DATA 
1720 REM *************** 

1730 PRINT CHRSC125] 

1740 PRINT "DATE "; DATE1S 

1750 PRINT "CATEGORY ";CAT1$ 

1760 PRINT "DESCRIPTION "; DES1S 

1770 PRINT "EXPENSE "; COST3S 

1780 PRINT 

1790 COUNT = COUNT + 1 

1800 IF COUNT = 3 THEN PRINT : PRINT "PRESS 
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RETURN TO CONTINUE"; : INPUT AS 

1810 IF COUNT = 3 THEN COUNT = : PRINT 

CHRSC1251 

1820 IF FLAG = 1 THEN RETURN 

1 830 PRINT : PRINT "Is the above data correct 

[answer" 

1840 PRINT "Y or NF; 

1850 INPUT AS 

1860 IF A$ = "N" THEN 1280 

1870 IF AS <> "Y" THEN 1830 

1880 COUNT = 

1900 REM ************* 

1910 REM APPEND FILE 

1920 REM ************* 

1930 OPEN #1, 9, 0, FILES 

1940 PRINT #1; DATE1S 

1950 PRINT #1; CAT1 S 

1960 PRINT #1; DES1S 

1970 PRINT #1; COST3S 

1980 CLOSE #1 

1990 PRINT : PRINT "Do you wish to make another 

entry" 

2000 PRINT "(answer Y or NT; 

2010 INPUT AS 

2020 IF AS = "Y" THEN 1280 

2030 IF AS <> "N" THEN 1990 

2040 PRINT : PRINT "Do you wish to look at the 

file" 

2050 PRINT "(answer Y or NT; 

2060 INPUT AS 

2070 IF AS = "Y" THEN 2230 

2080 IF AS <> "N" THEN 2040 

2090 IF FLAG = 3 THEN 2530 

2100 PRINT : PRINT "File has been appended, 

program ended." 

2110 END 

2200 REM ********** 

2210 REM INPUT FILE 
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2220 REM ********** 

2230 FLAG = 1 

2240 PRINT CHRSC1 25] 

2250 OPEN #1, 4, 0, FILES 

2260 INPUT #1, Y 

2270 TRAP 2380 

2280 INPUT #1; DATE1S 

2230 INPUT #1; CAT1$ 

2300 INPUT #1; DES1$ 

2310 INPUT #1; C0ST3S 

2320 IF FLAG = 2 THEN RETURN 

2330 GOSUB 1740 

2340 GOTO 2270 

2350 REM 

2360 REM ** CHECK IF OUT OF DATA ** 

2370 REM 

2380 ERROR = PEEKC195] 

2390 IF ERROR <> 136 THEN PRINT : PRINT 

"ERROR- "; ERROR : END 

2400 CLOSE #1 

2500 REM ************* 

2510 REM HARD COPY? 

2520 REM ************* 

2530 PRINT : PRINT "Do you want a hard copy of 

the data" 

2540 PRINT "[answer Y or NI"; 

2550 INPUT AS 

2560 IF A$ = "Y" THEN 2630 

2570 IF A$ <> "N" THEN 2530 

2580 PRINT : PRINT "PROGRAM ENDED" 

2590 END 

2600 REM ******************* 

2610 REM PRINT HARD COPY 
2620 REM ******************* 

2630 FLAG = 2 
2640 OPEN #1, 4, 0, FILES 
2650 INPUT #1; Y 
2660 PRINT CHRSC1 253 
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2670 PRINT : PRINT "TURN ON THE PRINTER, 

ALIGN PAPER." 

2680 PRINT "PRESS THE RETURN KEY WHEN 

READY"; 

2690 INPUT AS 

2700 LPRINT : LPRINT " TAX DEDUCTABLE 

EXPENSES FOR "; Y 

2710 LPRINT 

2720 LPRINT "DATE CAT. DESCRIPTION 

EXPENSE" 

2730 LPRINT 

2740 TRAP 2810 

2750 GOSUB 2280 

2760 LPRINT DATE1S; CAT1S; DES1S; COST3S 

2770 GOTO 2750 

2780 REM 

2790 REM ** CHECK IF OUT OF DATA ** 

2800 REM 

2810 ERROR = PEEK(195) 

2820 IF ERROR <> 136 THEN PRINT : PRINT 

"ERROR-"; ERROR : END 

2830 CLOSE #1 

2840 PRINT : PRINT "PROGRAM ENDED" 

2850 END 
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Auto Trip Leg 

With this program you can use your Atari to keep a log of your 
automobile trips. This is helpful for a variety of purposes. 




The program creates a disk data file named TRIP.001 . It is on 
this file that the information from your trips are stored. If you 
prefer to use a cassette recorder instead of a disk drive, make 
the following line changes: 
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240 PRINT : PRINT "CUE TAPE." 

280 OPEN #1, 8, 0, "C:TRIP001" 

282 FOR I = 1 TO 128 

284 PUT#1, 

286 NEXT I 

932 FOR N = 1 TO 4 

934 PRINT #1; CHRSC253); CHR$(1251 

936 NEXT N 

1040 PRINT : PRINT "CUE TAPE." 

1080 OPEN #1, 4, 0, "C:TRIP001" 

1082 FOR I = 1 TO 128 

1084 GET#1, D 

1086 NEXT I 

1110 DELETE LINE 

1165 IF STARTS = CHRSC253) THEN 1260 



To save your file on tape, you must print out dummy records 
at the beginning and the end of the file. Lines 282-286 outputs 
a dummy record at the beginning of the file. Lines 932-936 
outputs a dummy record at the end of the file. This record is 
called a trailer record. Notice that the number of elements in 
the trailer record corresponds with the actual record. One way 
to expand this program is by adding a routine to output the 
file to your printer. The Expense Log in this book has such a 
routine you can use. 



10 REM *** AUTO TRIP LOG *** 

20 REM 

30 DIM A$C6), STARTSC16], END$C16), TRIP$(50), 

NATSC50] 

40 PRINT CHRSC125) 

50 PRINT : PRINT ,"AUTO TRIP LOG" 

60 PRINT : PRINT "Is this a new or existing log 

[reply" 

70 PRINT "NEW or EXIST]"; 

80 INPUT A$ 

90 IF A$ = "EXIST" THEN 300 
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100 IF AS <> "NEW" THEN 60 
200 REM ****************** 

210 REM CREATE NEW FILE 
220 REM ****************** 

230 PRINT CHRSC125) 

240 PRINT : PRINT "INSERT DATA DISK" 

250 PRINT "PRESS RETURN WHEN READY"; 

260 INPUT AS 

270 TRAP 240 

280 OPEN #1, 8, 0, "D:TRIP.001" 

290 GOTO 450 

300 REM ************************** 

310 REM OPEN FILE, MAKE ENTRY 
320 REM ************************** 

330 PRINT : PRINT "Do you want to make a new 

entry or" 

340 PRINT "just review the log [answer ENTRY or" 

350 PRINT "REVIEW)"; 

360 INPUT A$ 

370 IF AS = "REVIEW" THEN 1030 

380 IF AS <> "ENTRY" THEN 330 

390 PRINT CHRSC125) 

400 PRINT : PRINT "INSERT DATA DISK." 

410 PRINT "PRESS RETURN WHEN READY"; 

420 INPUT AS 

430 TRAP 400 

440 OPEN #1, 9, 0, "D:TRIP.001" 

450 PRINT CHRSC125) 

460 PRINT : PRINT "INPUT STARTING 

DATE "; 

470 INPUT STARTS 

480 PRINT : PRINT "INPUT DATE TRIP 

ENDED. . . ."; 

490 INPUT ENDS 

500 PRINT : PRINT "INPUT DESTINATION "; 

510 INPUT TRIPS 

520 PRINT: PRINT "NATURE OF TRIP "; 

530 INPUT NATS 
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540 PRINT : PRINT "INPUT MILES TRAVELED. 

550 TRAP 540 

560 INPUT MILES 

570 IF MILES < ©THEN 540 

600 REM *^<^^^^' 

610 REM CHECK ENTRY 

620 REM »*****###«**« 

630 PRINT CHRSH 251 

640 PRINT : PRINT "STARTING DATE "; 

STARTS 



PRINT "ENDING DATE "; ENDS 

PRINT "DESTINATION "; TRIPS 

PRINT "NATURE OF TRIP . ."; NATS 

PRINT "TOTAL MILES "; MILES 

PRINT "Is the above information 



650 PRINT 

660 PRINT 

670 PRINT 

680 PRINT 

690 PRINT 

correct" 

700 PRINT "(Y or N)"; 

710 INPUT AS 

720 IF AS = "N" THEN 450 

730 IF AS <> "Y" THEN 690 

800 REM *^«**«***«**« 

810 REM WRITE TO FILE 
820 REM **^*«***«»*«* 

830 PRINT #1; STARTS 

840 PRINT #1; ENDS 

850 PRINT #1; TRIPS 

860 PRINT #1; NATS 

870 PRINT #1; MILES 

880 PRINT CHRSC125) 

890 PRINT : PRINT "Do you wish to make another 

entry" 

900 PRINT "CY or N]"; 

910 INPUT AS 

920 IF AS = "Y" THEN 450 

930 IF A$ <> "N" THEN 890 

940 CLOSE #1 

950 PRINT : PRINT "Do you want to review the log' 

960 PRINT "CY or ND"; 
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970 INPUT AS 

980 IF A$ = "N" THEN PRINT : PRINT "PROGRAM 

ENDED" : END 

990 IF A$ <> "Y" THEN 950 

1000 REM ************* 

1010 REM REVIEW LOG 
1020 REM ************* 

1030 PRINT CHR$(125) 

1040 PRINT : PRINT "INSERT DATA DISK." 

1050 PRINT "PRESS RETURN WHEN READY"; 

1060 INPUT A$ 

1070 TRAP 1040 

1080 OPEN #1, 4, 0, "D:TRIP001" 

1090 PRINT CHRSC125) 

1100 COUNT = 

1110 TRAP 1260 




1120 INPUT #1 
1130 INPUT #1 
1140 INPUT #1 
1150 INPUT #1 
1160 INPUT #1 



STARTS 

ENDS 

TRIPS 

NATS 

MILES 



1170 PRINT "STARTING DATE "; STARTS 

1180 PRINT "ENDING DATE "; ENDS 

11 90 PRINT "DESTINATION "; TRIPS 

1200 PRINT "NATURE OF TRIP "; NATS 

1210 PRINT "TOTAL MILES "; MILES 

1220 COUNT = COUNT + 1 

1230 IF COUNT = 3 THEN PRINT : PRINT 

"PRESS RETURN TO CONTINUE"; 

1240 IF COUNT = 3 THEN INPUT AS : 

GOTO 1090 

1250 GOTO 1110 

1260 CLOSE #1 

1270 PRINT : PRINT "END OF FILE, 

PROGRAM ENDED" 

1280 END 



159 



Inventory File 




This program will help keep track of your inventory. The pro- 
gram creates a data file named INVEN.DAT which stores the 
information. Each record in the file consists of four fields: 1) 
the item number, 2) the item name/model #, 3) the items' list 
price, and 4) the number of items in stock. Be sure to use a 
four digit number for the item number field (item #1 is #0001). 
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10 REM *** INVENTORY *** 

20 REM 

30 DIM A$(6). B$(4), ITNUMSC4), ITEM$(30), 

LPRICESC4), ST0CK$(4) 

40 DIM RECSC30), FILEt 100001, ELEM$(45) 

100 REM ************ 

110 REM USER INPUT 

1 20 REM ft*********** 

130 PRINT CHR$(1 25] 

140 PRINT ."INVENTORY" 

150 PRINT : PRINT "INSERT FILE DISK." 

160 PRINT : PRINT "PRESS RETURN WHEN 

READY"; 

170 INPUT AS 

180 CLOSE #1 

190 CLOSE #2 

200 TRAP 400 

210 OPEN #1, 4, 0, "D:INVEN.DAT" 

220 OPEN #2, 8, 0, "D:INVEN.TEM" 

230 PRINT CHRSC1 25) 

240 PRINT : PRINT " 1) ADD ITEM" 

250 PRINT : PRINT " 2) CHANGE OR DELETE 

ITEM" 

260 PRINT : PRINT " 3) REVIEW ITEMCS)" 

270 PRINT : PRINT " 4) SORT LOG" 

280 PRINT : PRINT " 5) LEAVE PROGRAM" 

290 PRINT : PRINT "SELECT OPTION"; 

300 TRAP 290 

310 INPUT OPTION 

320 IF OPTION < 1 OR OPTION > 5 THEN 290 

330 ON OPTION GOTO 700, 1300,1600, 1900, 340 

340 CLOSE #1 

350 CLOSE #2 

360 PRINT : PRINT "FILES CLOSED, PROGRAM 

ENDED." 

370 END 

400 REM <t *' K '** s *** s ***' tt * s * 

410 REM FILE NOT FOUND 
420 REM ■ ,( •**■ i '•' ,1 •*" )| •" s "" , '"* s " i, "*" !t **" ,, " 
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430 PRINT CHRSC253) 

440 PRINT : PRINT "FILE NOT FOUND ON THIS 

DISK." 

450 PRINT : PRINT "Either insert proper disk and 

enter" 

460 PRINT '"NEW or enter 'CREATE' to create a" 

470 PRINT "new file on this disk"; 

480 INPUT AS 

490 IF AS = "NEW" THEN 180 

500 IF AS <> "CREATE" THEN 450 

600 REM ****************** 

610 REM CREATE NEW FILE 

620 REM ****************** 

630 CLOSE #1 

640 OPEN #1, 8, 0, "D:INVEN.DAT" 

650 PRINT #1; "END" 

660 CLOSE #1 

670 POKE 195, 

680 GOTO 180 

700 REM ********************** 

710 REM TRANSFER RECORDS 
720 REM ********************** 

730 COUNT = 

740 INPUT #1; ITNUMS 

750 IF ITNUMS = "END" THEN 900 

760 PRINT #2; ITNUMS 

770 INPUT #1; ITEMS 

780 PRINT #2; ITEMS 

790 INPUT #1; LPRICES 

800 PRINT #2; LPRICES 

810 INPUT #1; STOCKS 

820 PRINT #2; STOCKS 

830 COUNT = COUNT + 1 

840 GOTO 740 

900 REM ********** 

910 REM ADD ITEM 

920 REM ********** 

930 PRINT CHRSC125] 

940 IF OPTION = 1 THEN PRINT "ADD ITEM" 
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950 IF OPTION = 2 THEN PRINT "CHANGE 

ITEM":GOTO 970 

960 PRINT : PRINT "ENTER 'END' WHEN DONE." 

970 PRINT: PRINT "ITEM # "; 

980 INPUT ITNUMS 
990 IF ITNUMS = "END" THEN 2500 
1000 IF LENCITNUMS] <> 4 THEN 970 
1010 IF VAL(ITNUMS) < 1 THEN 970 

1020 PRINT : PRINT "ITEM '.'; 

1030 INPUT ITEMS 

1040 IF LENCITEMS] > 30 THEN 1020 

1050 PRINT : PRINT "LIST PRICE '.'; 

1060 TRAP 1050 

1070 INPUT LPRICE 

1080 LPRICES = STRSCLPRICE] 

1090 IF VALCLPRICES] < 0.01 THEN 1050 

1100 IF VALCLPRICES] > 9999.99 THEN 1050 

1110 PRINT : PRINT "# IN STOCK '.'; 

1120 INPUT STOCKS 

1 1 30 IF VALCSTOCKS) < THEN 1 1 20 

1140 IF VALCSTOCKS] > 9999 THEN 1120 

1150 PRINT: PRINT" 1] ADD" 

1160 PRINT : PRINT " 2) CHANGE" 

1170 PRINT : PRINT "SELECT OPTION"; 

11 80 TRAP 1170 

1190 INPUT 0PT2 

1200 IF OPT2 < 1 OR 0PT2 > 2 THEN 1180 

1210 IF OPT2 = 2 THEN 900 

1220 IF OPTION = 1 THEN COUNT = COUNT + 

1230 GOTO 2400 

1300 REM **************** 

1310 REM READ RECORDS 
1320 REM **************** 

1330 COUNT = 

1340 INPUT #1; ITNUMS 

1350 IF ITNUMS = "END" THEN 2500 

1360 INPUT #1; ITEMS 

1370 INPUT #1; LPRICES 
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1380 INPUT #1; STOCKS 

1390 COUNT = COUNT + 1 

1400 PRINT CHR$(125) 

1410 PRINT : PRINT "ITEM # '.'; ITNUM$ 



'ITEM '.'; ITEMS 

'LIST PRICE '.'; LPRICES 

'# IN STOCK '.'; STOCKS 

' 1] KEEP" 
' 2) CHANGE" 
' 3] DELETE" 
PRINT "SELECT OPTION"; 



1420 PRINT: PRINT 

1430 PRINT: PRINT 

1440 PRINT: PRINT 

1450 PRINT: PRINT 

1460 PRINT : PRINT 

1470 PRINT : PRINT 

1480 PRINT 

1490 TRAP 1480 

1500 INPUT 0PT2 

1510 IF OPT 2 < 1 OR OPT2 > 3 THEN 1480 

1520 IF OPT2 = 3 THEN COUNT = COUNT - 1 

1530 ON OPT2 GOTO 2400, 900, 1340 

1600 REM *************** 

1610 REM REVIEW ITEMS 

1620 REM *************** 

1630 PRINT CHRSC1 25] 

1640 PRINT : PRINT "Enter the item number you 

want to" 

1650 PRINT "review or enter ALL to review the" 

1660 PRINT "entire list"; 

1670 INPUT B$ 

1680 IF B$ = "ALL" THEN 1710 

1690 IF VAL(BS) < 1 THEN 1640 

1700 IF LENCBS) > 4 THEN 1640 

1710 PRINT CHRSC1 25) 

1720 INPUT #1; ITNUMS 

1730 IF ITNUMS = "END" THEN NUM = : GOTO 

1880 



1740 INPUT #1 
1750 INPUT #1 
1760 INPUT #1 
1770 IF B$ 



ITEMS 
LPRICES 
STOCKS 
ALL" THEN 1790 



1780 IF B$ <> ITNUMS THEN 1720 
1790 PRINT "ITEM #: "; ITNUMS 
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1800 PRINT "ITEM: "; ITEMS 

1810 PRINT "LIST PRICE: $"; LPRICES 

1820 PRINT "# IN STOCK; "; STOCKS 

1830 PRINT 

1840 NUM = NUM + 1 

1850 IF NUM = 3 THEN PRINT : PRINT "PRESS 

RETURN TO CONTINUE"; : INPUT AS 

1860 IF NUM = 3 THEN NUM = : PRINT 

CHRSC125] 

1870 GOTO 1270 

1880 PRINT : PRINT "PRESS RETURN WHEN 

FINISHED"; : INPUT AS 

1890 GOTO 2400 

1900 REM *********** 

1910 REM SORT LIST 

1 920 REM *********** 

1930 PRINT : PRINT "STANDBY WHILE FILE IS 

SORTED." 

1940 INPUT #1; RECS 

1950 IF RECS = "END" THEN 1970 

1960 GOTO 1940 

1970 INPUT #1; COUNT 

1980 CLOSE #1 

1990 IF COUNT = THEN 2400 

2000 IF COUNT = 1 THEN PRINT : PRINT "SORT 

NOT REQUIRED." : GOTO 180 

2010 FOR J = 1 TO COUNT * 45 

2020 FILESCJ, J] = " " 

2030 NEXT J 

2040 I = 1 

2050 OPEN #1, 4, 0, "DINVEN.DAT" 

2060 INPUT #1; ITNUMS 

2070 IF ITNUMS = "END" THEN 2170 

2080 FILESCI, I + 3] = ITNUMS 

2090 INPUT #1; ITEMS 

2100 FILESCI + 4, I + 33] = ITEMS 

2110 INPUT #1; LPRICES 

2120 FILESCI + 34, I + 40] = LPRICES 
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2130 INPUT #1; STOCKS 

2140 FILESCI + 41, I + 44) = STOCKS 

2150 I = I + 45 

2160 GOTO 2060 

2170 STRING = [COUNT - 1) * 45 

2180 FOR N = 1 TO COUNT - 1 

2190 FOR P = 1 TO STRING - 44 STEP 45 

2200 PL = P + 44 

2210 PLEN = P + 45 

2220 PLEN1 = P + 89 

2230 IF FILESCP, PL) <= FILESCPLEN, PLEN1) 

THEN 2270 

2240 ELEMS = FILESCP, PL) 

2250 FILESCP, PL) = FILESCPLEN, PLEN1) 

2260 NEXT P 

2270 NEXT N 

2290 I = 1 

2300 X = 1 

2310 IF X > COUNT THEN 2500 

2320 ITNUMS = FILESCI, I + 3) 

2330 ITEMS = FILESCI + 4, I + 33) 

2340 LPRICES = FILESCI + 34, I + 40) 

2350 STOCKS = FILESCI + 41, I + 44) 

2360 I = I + 45 

2370 X = X + 1 

2400 REM ********************* 

2410 REM WRITE TO NEW FILE 

2420 REM ********************* 



2430 PRINT #2 
2440 PRINT #2 
2450 PRINT #2 
2460 PRINT #2 



ITNUMS 

ITEMS 

LPRICES 

STOCKS 

2470 ON OPTION GOTO 930, 1340, 180, 2310, 
340 

2500 REM ************* 
2510 REM CLOSE FILES 
2520 REM ************* 

2530 PRINT : PRINT "STANDBY WHILE FILES ARE 
CLOSED." 
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2540 PRINT #2; "END" 

2550 PRINT #2; COUNT 

2560 CLOSE #1 

2570 CLOSE #2 

2580 IF OPTION = 3 THEN 2610 

2590 XIO 33, #1, 0, 0, "D:INVEN.DAT" 

2600 XIO 32, #1. 0, 0, 

"D:INVEN. TEM, INVEN.DAT" 

2610 GOTO 180 
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Section 5 



Utility Programs 

• Printer Program Lister 

• Dollar Formatter 

• Printer Font Selector 

• Binary-Hex-Decimal converter 

• List Sorter 

• Julian Date Converter 
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UTILITY PROGRAMS 

The final part of this book is devoted to utility programs. A 
utility is a program that helps you program or perform a pro- 
cedure. Some utility programs help in using hardware such as 
printers or disk drives. Others are strictly software oriented. 
A good utility program is one that saves time performing a 
task or performs an otherwise impossible task. There are six 
utility programs in this section. The Program Lister and Num- 
ber Converter can be classified as program development aids. 
The Dollar Formatter and Sort programs are useful as subrou- 
tines in your programs, although the Sort program works fine 
by itself. The Printer Font Selector is a program you can use 
when working with your printer. Finally, the Julian Date Con- 
verter can be used as a subroutine in programs where you are 
working with dates. 
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Program Listing Utility 

The following short utility is quite helpful for editing and re- 
writing programs. Just add the program in the final lines of 
the program you are working on. When your program is fin- 
ished RUNning, you will notice the prompt '?'. Simply press 
the RETURN key and the display screen will revert back to 
graphics mode and your program will be listed. This is es- 
pecially useful when you are testing a program that uses dif- 
ferent graphic modes. 
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3000 REM *** PROGRAM LISTING UTILITY 

3010 REM 

3020 DIM ANSm 

3030 INPUT AN$ 

3040 GRAPHICS 

3050 LIST 
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Dollar Formatter 

If you have been programming with your Atari you may have 
noticed what happens to numbers such as 5.00. If you haven't, 
what happens is the computer will print out the number "5.00" 
as "5". This can be irritating when you are working with dollar 
amounts, especially if you prefer 5.00 to 5. Another problem 
when working with dollar figures is right margin justification. 
That is lining up the numbers so all the decimal points are 
aligned. With this short subroutine you can take care of both 
problems. 
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Just before your program prints out a dollar amount insert the 
following statement: GOSUB 5000. The subroutine will for- 
mat your variable so it has two decimal places with the right 
margin justified. What the routine does is convert your numeric 
variable to the string variable MONEY3S. The string 
MONEY3S is 10 characters long. At the point in your program 
where you print your numeric variable print out the string 
variable MONEY3S instead. If you deal with amounts above 
seven figures, you will have to change the DIMensions in line 
30 and ther values 10 and 11 in lines 5090, 5100, 5130, and 
5140. also, the best place for the DIM statement in line 50 is 
whereever you normally dimension your variables (to avoid an 
ERROR- 9). If you prefer, you can place the routine directly 
into your program rather than refer to it as a subroutine. Fi- 
nally, you can add the following lines to test the program: 

40 PRINT : PRINT "ENTER AMOUNT"; 

50 INPUT AMOUNT 

60 GOSUB 5000 

70 PRINT : PRINT MONEY3S 

80 GOTO 40 

Make sure the numeric variable in your program is identical 
to the one in lines 5030-5040. 

10 REM *** DOLLAR FORMATTER *** 

20 REM 

30 DIM MONEY1SC10), MONEY2SC10), 

MONEY3SC1BH. PADSC7) 

5000 MONEY1S = " " 

5010 MONEY2S = " " 

5020 MONEY3S = " " 

5030 AMOUNT = AMOUNT + .001 

5040 MONEY1S = STR$(AMOUNT] 

5050 L = LENCMONEY1S) 

5060 MONEY2SC1.1] = "$" 

5070 MONEY2$(2,U = MONEY1SC1, L - 1] 

5080 L = LENCMONEY2S] 
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5090 IF L = 10 THEN M0NEY3S = MONE 


RETURN 






5100 FOR I = 1 TO 10 - 


L 




5110 PADSCI, I] = " " 






5120 NEXT I 






5130 MONEY3SI1, 10 - 


U = 


PADS 


5140 M0NEY3SC11 - L, 


10] 


= M0NEY2S 


5150 RETURN 
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Printer Font Selector 

Use this program to change the font setting on your printer. 
The program was designed for a PROWRITER, but it may work 
on your printer (you'll have to check the printer manual). If it 
doesn't work for your printer, you can probably modify it so it 
will. 




What the program does is redefine two character strings. 
PITCHS sets the character pitch for the printer. TEXTS sets 
the text type. When you choose an item from the menu, the 
program redefines the appropriate element of the string. When 
you have selected the font you want, the program routes the 
two strings to the printer (lines 1730, 1740) using the LPRINT 
statement. At that point you have the option to print a test 
line. If you experiment with different combinations of pitch 
and text, you will see that quite a few different fonts are possible. 
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10 REM *** PRINTER FONT SELECTOR *** 

20 REM 

30 PRINT CHR$(1 25) 

40 DIM A$(1), PITCH$(2), TEXT$(5) 

50 REM 

60 REM ** CLEAR FONT STRINGS *• 

70 REM 

80 PITCHS = " " : REM * 2 SPACES * 

90 TEXTS = " " : REM « 5 SPACES :: - 

1 00 REM «HHHHHHHHHHH»»»#*«««*««HHHHI 

110 REM CHOOSE CHARACTER PITCH 

1 20 REM **«***«»*«**«*»««*««****««*** 

130 PRINT : PRINT ,"FONT SELECTOR" 

140 PRINT : PRINT "TURN ON PRINTER. PRESS 

RETURN"; 

150 INPUT AS 

160 PRINT CHR$(125) 

170 PRINT : PRINT " 1] PICA (10 CPU" 

180 PRINT : PRINT " 2) ELITE (12 CPU" 

190 PRINT : PRINT " 3) COMPRESSED (17 CPU" 

200 PRINT : PRINT " 4] PROPORTIONAL" 

210 PRINT : PRINT "SELECT PITCH"; 

220 INPUT PITCH 

230 IF PITCH < 1 OR PITCH > 4 THEN 150 

240 PITCH$E1,1) = CHR$(27) 

250 ON PITCH GOTO 300, 400, 500, 600 

300 REM 

310 REM ** PICA PITCH ** 

320 REM 

330 PITCH$(2,2] = CHR$(78) 

340 GOTO 700 

400 REM 

410 REM ** ELITE PITCH ** 

420 REM 

430 PITCHS(2,2) = CHRC69) 

440 GOTO 700 

500 REM 

510 REM ** COMPRESSED PITCH ** 
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520 REM 

530 PITCH$(2,2) = CHRC81) 

540 GOTO 700 

600 REM 

610 REM ** PROPORTIONAL SPACE 

620 REM 

630 PITCH$C2,2) = CHR$(80) 

700 REM ************************ 

710 REM CHOOSE SPECIAL TEXT 

720 REM ****«**««*******»«»»««*« 

730 PRINT CHR$(125] 



1] STANDARD" 

2] BOLDFACE TYPE" 

3] ELONGATED TYPE" 

4] UNDERLINED TYPE" 

5] BOLDFACE/ELONGATED" 

6] BOLDFACE/UNDERLINED" 

7] ELONGATED/ 

8] BOLDFACE/ELONGATED/ 



740 PRINT : PRINT 

750 PRINT : PRINT 

760 PRINT: PRINT 

770 PRINT : PRINT 

780 PRINT: PRINT 

790 PRINT: PRINT 

800 PRINT : PRINT 

UNDERLINED" 

810 PRINT: PRINT 

UNDERLINED" 

830 PRINT : PRINT "SELECT TEXT"; 

840 TRAP 830 

850 INPUT TEXT 

860 IF TEXT < 1 OR TEXT > 8 THEN 830 

CHRSC27) 

CHRSC34) 

CHR$(27) 

CHR$(89) 

CHRSC15] 

1000, 1100, 1200, 



870TEXT$n,1) 

880 TEXT$[2,2) 

890 TEXT$(3,3) 

900 TEXT$(4,4] 

910TEXT$C5,5) 

920 ON TEXT GOTO 1700, 

1300, 1400, 1500, 1600 

1000 REM 

1010 REM ** BOLDFACE ** 

1020 REM 

1030 TEXT$(2,2) = CHRSC33) 

1040 GOTO 1700 

1100 REM 
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1110 REM ** ELONGATED ** 

1120 REM 

1130TEXT$(5,5] = CHR$(14) 

1140 GOTO 1700 

1200 REM 

1210 REM ** UNDERLINED ** 

1220 REM 

1230TEXT$(4,4) = CHR$(88) 

1240 GOTO 1700 

1300 REM 

1310 REM »* BOLDFACE/ELONGATED ** 

1320 REM 

1330 TEXT$(2,2) = CHR$(33) 

1340 TEXT$(5,5) = CHRSC14) 

1350 GOTO 1700 

1400 REM 

1410 REM ** BOLDFACE/UNDERLINED *< 

1420 REM 

1430TEXT$[2,2) = CHRSC33) 

1440TEXTSC4.4) = CHR$(88) 

1450 GOTO 1700 

1500 REM 

1510 REM ** ELONGATED/UNDERLINED 

1520 REM 

1530 TEXTSC4.4) = CHR$C88) 

1540 TEXT$(5,5) = CHR$[14) 

1550 GOTO 1700 

1600 REM 

1610 REM ** BOLDFACE/ELONGATED/ 

UNDERLINED •* 

1620 REM 

1630 TEXT$(2,2) = CHR$(33) 

1640 TEXTSC4.4) = CHR$(88) 

1650 TEXT$C5,5) = CHRSC14) 

1700 REM ********** 

1710 REM SET FONT 

1720 REM ********** 

1730 LPRINT PITCHS 
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1740 LPRINT TEXTS 

1750 PRINT CHRSH25) 

1760 PRINT : PRINT "Do you want to print a test 

line" 

1770 PRINT "CY or N]"; 

1780 INPUT AS 

1790 IF AS = "Y" THEN 1900 

1800 IF AS <> "N" THEN 1760 

1810 PRINT : PRINT "FONT IS SET. PROGRAM 

ENDED." 

1820 END 

1 900 REM ********** 

1910 REM TEST LINE 

1920 REM ********** 

1 930 LPRINT "THIS IS WHAT THE FONT YOU 
HAVE CHOSEN LOOKS LIKE." 
1940 GOTO 1810 
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Binary-Decimal-Hexadecimal Converter 

This program converts binary, decimal, and hexadecimal num- 
bers. When you input one type of number, the program calcu- 
lates and displays the numbers equivalent in the other two 
number systems. Converting from binary to decimal is neces- 
sary when working with Atari player/missile graphics. 

Hexadecimal numbers are used extensively in machine lan- 
guage. You'll find this program helpful until you become com- 
fortable with the different number systems. Even then, the 
program is useful when converting large numbers. 
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10 REM *** NUMBER CONVERTER *** 

20 REM 

30 DIM ASCI), BINSC40), BINRSC40), HEXSC9), 

HEXASC1) 

40 PRINT CHRSC125] 

50 PRINT : PRINT " 1] DECIMAL TO HEX., BIN." 

60 PRINT : PRINT " 2) BINARY TO DEC, HEX." 

70 PRINT : PRINT " 3) HEXADECIMAL TO BIN., 

DEC." 

80 PRINT : PRINT " 4] END PROGRAM." 

90 PRINT : PRINT "SELECT OPTION"; 

100 TRAP 90 

110 INPUT OPTION 

120 IF OPTION < 1 OR OPTION > 4 THEN 90 

130 PRINT CHRSC125) 

140 ON OPTION GOTO 500, 200, 1000, 150 

150 PRINT : PRINT "PROGRAM ENDED" 

1B0 END 

P00 REM ******«-»#**»♦****•*** 

210 REM BINARY TO DECIMAL 

220 REM ^HH^^lHH^H^HHHHt 

230 PRINT : PRINT "ENTER BINARY NUMBER"; 

240 INPUT BINS 

250 REM 

260 REM ** CHECK VALIDITY ** 

270 REM 

2B0 FOR I = 1 TO LENCBINS] 

290 N = ASCCBINSCI.m 

300 IF N <> 48 AND N <> 49 THEN 230 

310 NEXT I 

320 REM 

330 REM ** CALCULATE DECIMAL EQUIVALENT 

340 REM 

350 DEC = 

360 POW = LENtBINS) - 1 

370 FOR I = 1 TO LENCBINS) 

380 IF VALCBINSCI.m = 1 THEN DEC = DEC + 

2"POW 
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390 POW = POW - 1 

400 NEXT I 

410 DEC = INTCDEC + 0.1] 

420 PRINT : PRINT "DECIMAL = "; DEC 

500 REM ***************************** 

520 REM DECIMAL TO HEXADECIMAL 
520 REM ***************************** 

530 IF OPTION <> 1 THEN 570 

540 PRINT : PRINT "ENTER DECIMAL NUMBER"; 

550 TRAP 540 

560 INPUT DEC 

570 FOR I = I TO 9 

580 HEXS(I.I) = " " 

590 NEXT I 

600 I = 9 

610 DEC1 = DEC 

620 DEC1 = DEC1 

630 NUM = DEC1 

640 DEC1 = INTCDEC1 / 16] 

650 NUM = NUM - DEC1 * 16 

660 IF NUM < 10 THEN HEXStl.H = STRSCNUM] 

GOTO 680 

670 HEXSCI.I) = CHRSCNUM - 10 + 65] 

680 IF DEC1 <> THEN 1 = 1-1: GOTO 620 

690 PRINT : PRINT "HEX = "; HEXSCI.9) 

700 IF OPTION = 1 THEN 800 

710 PRINT : PRINT "PRESS RETURN WHEN 

DONE"; 

720 INPUT AS 

730 GOTO 40 

800 REM ********************* 

810 REM DECIMAL TO BINARY 

820 REM ********************* 

830 FOR I = 1 TO 40 

840 BINRSCI.I) = " " 

850 NEXT I 

860 I = 40 

870 DEC1 = DEC 
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880 DEC1 = DEC1 

890 NUM = DEC1 

900 DEC1 = INTCDEC1 / 2) 

910 NUM = NUM - DEC1 * 2 

920 BINRSCI.I) = CHRStNUM + 48] 

930 IF DEC1 <> THEN 1 = 1-1: GOTO 880 

940 PRINT : PRINT "BIN = "; BINR$[I,40) 

950 PRINT : PRINT "PRESS RETURN WHEN 

DONE"; 

9B0 INPUT A$ 

970 GOTO 40 

1 000 REM **************************** 

1010 REM HEXADECIMAL TO DECIMAL 

1020 REM *#*******■»*****###**#■»****** 

1030 PRINT : PRINT "ENTER 

HEXADECIMAL NUMBER"; 

1040 INPUT HEXS 

1050 DEC = 

1060 FOR I = 1 TO LENCHEXS) 

1070 HEXAS = HEXSCI.I] 

1080 IF HEXAS < "0" THEN 1030 

1090 IF HEXSCI.I] <= "9" THEN DEC = 

DEC * 16 + VAL(HEXA$] : GOTO 1130 

1100 IF HEXA$ > "F" THEN 1030 

1110 IF HEXAS < "A" THEN 1030 

1120 DEC = DEC "- 16 + ASC(HEXA$] 

- ASCC"A"] + 10 

1130 NEXT I 

1140 PRINT : PRINT "DECIMAL = "; 

DEC 

1150 GOTO 800 



190 




List Sort 

Sort programs are always handy. This program will sort records 
up to 99 characters (bytes) long. It is a simple sort in that the 
entire record is sorted as if it were one field. In other words, 
you cannot specify a field in the middle of a record to be the 
sort key. The key lines in the program are lines 490 and 630 - 
780. 




Line 490 takes each record you enter and concatenates them 
into one long string (CONCATS). Lines 630 - 780 is where the 
sort actually happens. Each record in the file is compared to 
each subsequent record (line 730). If a record should appear 
after its subsequent record, then the two records swap positions 
in the string (lines 740 - 760). A good way to visualize what is 
happening is to think of the sort as a square dance where each 
record changes partners until all the records are in alphabetical 
order. Lines 860 - 950 split the sorted string and print out each 
record in its proper order. 
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10 REM *** LIST SORTER *** 

20 REM 

30 DIM A$C1] 

100 REM ************* 

110 REM USER INPUT 

1 20 REM ************* 

130 PRINT CHR$(125) 

140 PRINT ."LIST SORTER" 

150 PRINT : PRINT "ENTER MAX. ITEM LENGTH"; 

170 INPUT LENGTH 

180 IF LENGTH < 1 THEN 150 

130 IF LENGTH > 33 THEN 150 

200 PRINT : PRINT "ENTER NUMBER OF ITEMS"; 

220 INPUT NUM 

230 IF NUM < 2 THEN PRINT : PRINT "IT 

DOESN'T NEED TO BE SORTED." : GOTO 360 

240 L = LENGTH - 1 

250 DIM CONCATSCLENGTH * NUM], 

ELEMS(LENGTH) 

300 REM *************** 

310 REM CLEAR STRING 
320 REM *************** 

330 FOR N = 1 TO LENGTH * NUM 
340 CONCAT$(N,N] = " " 
350 NEXT N 

400 REM ************************** 

410 REM CONCATENATE STRINGS 
420 REM ************************** 

430 PRINT : PRINT "INPUT ITEMS TO BE SORTED" 

440 PRINT 

450 J = 1 

460 FOR N = 1 TO NUM 

470 PRINT "#"; N; " "; 

4B0 INPUT ELEMS 

430 CONCATSU.J + L] = ELEMS 

500 J = J + LENGTH 

510 NEXTN 

520 PRINT : PRINT "PRESS RETURN TO SORT 
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ITEMS"; 

530 INPUT A$ 

540 PRINT : PRINT "STANDBY WHILE ITEMS ARE 

SORTED." 

600 REM ************* 

610 REM SORT ITEMS 

620 REM ************* 

630 STRING = CNUM - 1) * LENGTH 

640 FOR N = 1 TO NUM - 1 

650 FOR P = 1 TO STRING - L STEP LENGTH 

660 PL = P + L 

670 PLN = P + LENGTH 

680 PLN1 = P + LENGTH + L 

690 REM 

700 REM ** Compare adjacent substrings. If a 

substring is less (in value] 

710 REM than the subsequent substring, then swap 

positions. ** 

720 REM 

730 IF CONCATSCRPL) <= CONCATSCPLN.PLN1] 

THEN 770 

740 ELEMS = CONCATSCRPL] 

750 CONCATSCRPL] = CONCAT$(PLN,PLN1 ] 

760 CONCAT$CPLN,PLN1] = ELEMS 

770 NEXT P 

780 NEXT N 

800 REM ************** 

810 REM PRINT ITEMS 
820 REM ************** 

830 PRINT CHRSC1 25] 

840 PRINT : PRINT , "SORTED LIST" 

850 PRINT : PRINT "ITEM #", "ITEM" 

860 J = 1 

870 FOR N = 1 TO NUM 

880 PRINT N, CONCATSCJ.J + L) 

890 J = J + LENGTH 

900 ROW = PEEKC84] 

910 IF ROW >= 20 AND N <> NUM THEN FLAG 

= 1 
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920 IF FLAG = 1 THEN PRINT : PRINT "PRESS 

RETURN TO CONTINUE"; 

930 IF FLAG = 1 THEN INPUT A$ : PRINT 

CHR$(125) 

940 IF FLAG = 1 THEN PRINT "ITEM #", "ITEM" 

FLAG = 

950 NEXT N 

960 PRINT : PRINT "PROGRAM ENDED." 

970 END 
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Julian Date Converter 

This program will convert a date in standard format to Julian 
format. For those who are not aware, the Julian calendar or- 
ganizes the year into 365 days (366 for leap years). The Julian 
date for January 10, 1983 is 83.010. Julian dates are frequently 
used in data processing because of clarity and because it sim- 
plifies certain processes. It's easier to calculate a span of time 
by subtracting one Julian date from another, than it is to add 
the days of each month together. Note that the program will 
add an extra day for leap years (lines 530 - 570). 
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10 REM *** DATE CONVERTER *** 

20 REM 

30 REM Converts standard date format 

40 REM to Julian date format. 

50 REM 

60 DIM MC123, D(31), YC100), JC366) 

70 DIM A$m 

100 REM ************ 

110 REM USER INPUT 

120 REM ************ 

130 PRINT CHRSC125) 

140 PRINT." JULIAN DATE CONVERTER" 

150 PRINT : PRINT "What month is it Center 1-12)" 

160 TRAP 150 

170 INPUT M 

180 IF M < 1 OR M > 12 THEN 140 

190 PRINT : PRINT "What day is it"; 

200 TRAP 190 

210 INPUT D 

220 IF D < 1 OR D > 31 THEN 190 

230 PRINT : PRINT "What year is it (enter 00 - 

99)"; 

240 TRAP 230 

250 INPUT Y 

260 IF Y < OR Y > 99 THEN 230 

300 REM ******************** 

310 REM FIND JULIAN DATE 

320 REM ******************** 

330 ON M GOTO 340, 350, 360, 370, 380, 390, 

400, 410, 420, 430, 440, 450 

340 J = D : GOTO 530 

GOTO 530 

GOTO 530 

GOTO 530 



350 J = 31 + D 
360 J = 59 + D 



370 J = 90 + D 
380 J = 120 + D : GOTO 530 
390 J = 151 + D : GOTO 530 
400 J = 181 + D : GOTO 530 
410 J = 212 + D : GOTO 530 
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243 


+ 
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: GOTO 530 


273 


+ 
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: GOTO 530 


304 


+ 


D 


: GOTO 530 


334 


+ 


D 


: GOTO 530 



420 J 

430 J 

440 J 

450 J 

500 REM ************************ 

510 REM CHECK FOR LEAP YEAR 

520 REM **«****«^*^***«***«« 

530 RESTORE 

540 READ N 

550 IF N = 999 THEN 630 

560 IF N = Y AND M <> 1 THEN J = J + 1 : 

GOTO 630 

570 GOTO 540 

600 REM ********************* 

610 REM PRINT JULIAN DATE 

620 REM ********************* 

630 PRINT : PRINT "JULIAN DATE IS: "; 

640 IF J < 10 THEN PRINT Y; "."; "00"; J : GOTO 

670 

650 IF J < 100 THEN PRINT Y; "."; "0"; J : GOTO 

670 

660 PRINT Y; "."; J 

670 PRINT : PRINT "Do you wish to convert another 

date" 

680 PRINT "(answer Y or N)"; 

690 TRAP 680 

700 INPUT A$ 

710 IF AS = "Y" THEN 130 

720 IF AS <> "N" THEN 670 

730 PRINT CHRSC125) 

740 PRINT : PRINT "PROGRAM ENDED." 

750 END 

800 REM ****************** 

810 REM LEAP YEAR DATA 

820 REM ****************** 

830 DATA 84, 88, 92, 96, 0, 999 
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From the author of 




The Atari Experience on disk! 

For only $15.95 with this coupon, you can have 
all the programs contained within this book on 
one diskette! Save yourself hours of typing and 
de-bugging. 

All the programs contained on the diskette are 
listable, copyable and contain REM statements 
which identify each part of the program. You can 
list and save sections of the programs for use in 
your own programs. 

The Atari Experience diskette helps you get the 
most out of both your Atari® Home Computer 
and The Atari Experience. 
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* Atari is a registered trademark of Atari, Inc. 



Programming Notes 



201 



/\M/\£mM 




THE NEXT TIME SOMEONE ASKS, "WHAT 
CAN YOU REALLY DO WITH AN ATARI 
HOME COMPUTER?" SHOW THEM THIS 
BOOK! 



It's an important question. One that deserves an answer. After all, 
you have one of the most powerful tools in the universe at your ser- 
vice. But . . . where to begin? 

THE ATARI EXPERIENCE will help you learn about your Atari 
Home Computer. Take that important first step and learn how to pro- 
gram in BASIC by keying in completed programs. What if you could 
care less about programming? Simply key in these useful programs 
as they appear and save them to disk or tape. Either way, you'll soon 
have a library of software that can be used with everything from daily 
chores to complex business applications. 

Written in Atari BASIC, each program follows a standardized format 
and is clearly documented. These easy-to-follow programs are directed 
into five sections, which cover home, educational, entertainment, 
business, and utility applications. In addition, the programs may be 
modified to meet your particular needs. 

What can you really do with an Atari Home Computer? The answer 
lies within these pages. 
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